Question

Если q+p=c+d то сделать следующее: напечатать сообщение "Исправь", вычислить q=q*10+r*11, сложить t с двадцатью.
pascal

Answer 1

Ответ:

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;