Question

Даны числа (a, b). Если a>b, то наибольшее число заменить его квадратом, меньшее заменить суммой данных чисел, иначе каждое число уменьшить на 10 (дополнительные переменные, операторные скобки)
Нужна срочно помощь, спасибо огромное, если поможете❤

Answer 1

Объяснение:

var a,b:real;

begin

readln (a,b);

If a>b then begin

b:=sqr(a);

a:=b+a;

end; else begin a:=a-10;

b:=b-10;

end;

writеln (a,b);

end.