Даны два числа. Если их значения не равны, то присвоить каждому сумму этих

значений, а если равны, то присвоить числам нулевые значения. Вывести новые значения A

и B.

Question

Информатика

Иоанн

19 января, 17:11

Даны два числа. Если их значения не равны, то присвоить каждому сумму этих

значений, а если равны, то присвоить числам нулевые значения. Вывести новые значения A

и B.

+3

Ответы (1)

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

Минай · Answer 1

Var a, b, c:integer;

begin

writeln ('Введите 2 числа') ;

read (a, b) ;

if a=b then begin

a:=0;

b:=0;

end else

begin c:=a+b;

a:=c;

b:=c;

end;

writeln (a) ;

writeln (b) ;

end.

Даны два числа. Если их значения не равны, то присвоить каждому сумму этихзначений, а если равны, то присвоить числам нулевые значения. Вывести новые значения Aи B.

Даны два числа. Если их значения не равны, то присвоить каждому сумму этих

значений, а если равны, то присвоить числам нулевые значения. Вывести новые значения A

и B.