Даны 2 числа, если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. pascal

Question

Информатика

Зинаша

28 марта, 19:42

Даны 2 числа, если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. pascal

+3

Ответы (1)

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

Гема · Answer 1

Var a, b, k:integer;

begin

readln (a) ;

readln (b) ;

if (a+b) >10 then

writeln (2*a*b)

else

if (a>b) then

begin

k:=a;

a:=a+b;

b:=k-b;

end

else

begin

k:=b;

b:=b+a;

a:=k-a;

end;

writeln (a, ' ', b) ;

end.