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