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

Answer 2

сможете решить этот ветвлением алгоритма

Answer 3

Не понимаю Ваш вопрос. Оператор If реализует ветвление в программе.