30 даны 2 числа, если они имеют разные знаки, то поменять их местами, иначе найти их сумму​

vova11112 vova11112    3   29.09.2019 19:38    1

Ответы
Алёна542133 Алёна542133  17.08.2020 01:31

Объяснение:

program Zadacha;

var

 a, b, x: integer;

begin

 readln(a, b);

 if (((a < 0) and (b > 0)) or ((b < 0) and (a > 0)))

 then

 begin

   x := a;

   a := b;

   b := x;

   writeln(a, ' ', b)

 end

 else writeln(a + b)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика