Составь блок схему и напиши программу вычисления суммы q и w, если qgt;w; в противном ?
Составь блок схему и напиши программу вычисления суммы 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.
Не нашли ответ?
Похожие вопросы