Пользователь ввел 2 числа. Если первое меньше второго, то вычеслить их сумму, если нет, то разнозть. Напишите программу, пожалуйста.
Answers & Comments
vova41706
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.
Answers & Comments
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.