Пользователь ввел 2 числа. Если первое меньше второго, то вычеслить их сумму, если нет, то разнозть. Напишите программу, пожалуйста.
Пользователь ввел 2 числа. Если первое меньше второго, то вычеслить их сумму, если нет, то разнозть. Напишите программу, пожалуйста.
Гость
Ответ(ы) на вопрос:
Гостьvar
a, b: real;
begin
Write('Введите через пробел два числа: ');
Readln(a, b);
if a < b then Writeln(a + b)
else Writeln(a - b)
end.
ГостьProgram A1;
Var a, b, c, r:real;
Begin
Writeln (' Введите значение a');
readln (a);
Writeln ('Введите значение b');
readln (b);
if abegin
c:=a+b;
Writeln ('c=', c);
end
else
r:=a-b;
Writeln ('r=", r);
end;
end.
Не нашли ответ?
Похожие вопросы