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

Question

Информатика

Галатея

31 мая, 18:48

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

+5

Ответы (1)

Знаете ответ на вопрос?

Карион · 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
writeln ('m=', m,' n=', n)

end.