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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

Program qq; var a,b,max:integer; begin writeln('Введите а и б'); readln(a,b); if a=b then begin a:=0; b:=0; end else if a>b then max:=a else max:=b; begin a:=max; b:=max; end; writeln(a:4,b:4); end.