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

Question

Зинаша

2 апреля, 11:21

+5

Ответы (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.