Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.Вывести новые значения переменных А и В.Сделать в алгоритме ветвления.
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
