Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.