Если q+p=c+d то сделать следующее: напечатать сообщение "Исправь", вычислить q=q*10+r*11, сложить t с двадцатью.
pascal
Ответы
Ответ дал:
0
Ответ:
var q,p,c,d,r,t:integer;
begin
writeln('Введите числa');
write('q = ');
readln(q);
write('p = ');
readln(p);
write('c = ');
readln(c);
write('d = ');
readln(d);
write('r = ');
readln(r);
write('t = ');
readln(t);
if q+p=c+d then
begin
writeln('Исправь');
q:=q*10+r*11;
t:=t+20
end;
writeln('q = ',q);
writeln('p = ',p);
writeln('c = ',c);
writeln('d = ',d);
writeln('r = ',r);
writeln('t = ',t)
end.
Объяснение:
Используем сокращенный вариант условного оператора:
if условие then оператор;
Используем составной оператор:
begin
оператор;
оператор;
оператор
end;
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад