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

1

Ответы и объяснения

2013-02-26T14:55:53+00:00

PrograBID(БОЛЬШЕЕ ИЗ 2-Х ЧИСЕЛ);

var a,b,c:integer;

 begin

 readln(a,b);

 if a>b

 then c:= a

 else c:=b;

writeln(c);

end