Написать программу, которая удваивает меньшее из двух чисел и увеличивает на два большее из чисел

Question

Андроша

13 сентября, 10:54

+2

Ответы (1)

Знаешь ответ?

Аникий · Answer 1

program z;

var a, b: integer;

begin

readln (a, b);

if a > b then begin

b:=b*2;

a:=a+2;

end else if a
a:=a*2;

b:=b+2;

end;

end.