Даны два числа. Большее число увеличить на 3, а меньшее уменьшить на 5
var
a, b: real;
begin
writeln(Введите 2 числа);
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln(a = , a, , b = , b);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
