Question

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

Answer 1

Var a,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
if a=b then begin a:=0; b:=0; end
        else if a>b then b:=a else a:=b;
writeln('a=',a,'   b=',b);
end.

Пример:
a=3
b=5
a=5   b=5