Question

Составь блок схему и напиши программу вычисления суммы q и w, если q>w; в противном случае - их разности. Значения q и w задай с клавиатуры

Answer 1

var q, w: integer; c : real;
begin
c:=0;
writeln("Введите первое число:");
readln(q);
writeln("Введите второе число:");
readln(w);
if (q>w)then c:=q+w
else c:=q-w;
writeln("Результат:", c);
end.