Question

Паскаль. даны две переменные целого типа a и b. если их значения не равны,то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. вывести на экран новые значения a и b.

Answer 1

Var
A,B,C:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if A<>B then
   Begin
   C:=A+B;
   A:=C;
   B:=C
   End
else
   Begin
   A:=0;
   B:=0
   End;
WriteLn('A = ',A);
WriteLn('B = ',B);
End.