Question

Даны два числа m,n.Большее из этих чисел уменьшить на 3, а меньшее удвоить.Составить алгоритм

Answer 1

Var
m,n:integer;
begin
writeln('m=');
readln(m);
writeln('n=');
readln(n);
if m>n then begin m:=m-3; n:=n*2; end else
if m<n then begin n:=n-3; m:=m*2; end;
writeln('m=',m,' n=',n)
end.