Pascal
var
a, b :integer;
begin
read(a, b);
if a/b<1 then
writeln('Частное <1')
else
writeln('Частное НЕ <1');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Pascal
var
a, b :integer;
begin
read(a, b);
if a/b<1 then
writeln('Частное <1')
else
writeln('Частное НЕ <1');
end.