Question

Даны две различные переменные. Составить алгоритм замены большей из них разностью между большей и меньшей.

НЕ КОД, алгоритм решения

Answer 1

Ответ:

program f1;

var a,b: integer;

begin

readln(a,b);

if a<b then begin

a:=a*b

b:=a+b;

writeln(a,b);

else

a:=a+b;

b:=a*b;

writeln(a,b);

end;

end.