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