Решите задачку паскаль
Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, то заменить нулями.
Решите задачку паскаль
Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, то заменить нулями.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a <> b then
if a > b then
b := a
else
a := b
else
begin
a := 0;
b := 0;
end;
writeln('a = ', a);
writeln('b = ', b);
readln;
end.