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

Вопрос:

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

Ответы:

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.