Question

Известно числа а и b. Определить, будет ли частное этих чисел меньше 1
Нужно написать программу на Паскаль

Answer 1

Pascal

var

 a, b :integer;

begin

 read(a, b);

 if a/b<1 then

   writeln('Частное <1')

 else

   writeln('Частное НЕ <1');

end.