Question

Даны две переменные целого типа:А и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
РАБОТАЕМ НА ПАСКАЛЬ АБС ЭТО ИЗ ЗАДАЧНИКА ПРИМЕР 10 РАЗДЕЛ ИФ

Answer 1

Ответ:

var  

 a,b: integer;

begin

 readln(a,b);

 if a = b then

  begin

   a:= 0;

   b:= 0;

  end

 else

  begin

   a:= a+b;

   b:=a;

  end;

 writeln(a);

 writeln(b);

end.