Question

Поочередно вводятся целые числа, не превышающие по значению 100. Для каждого из них нужно вывести результат от целочисленного деления на 2. Если вводится число больше 100, цикл прекращает работу.

Answer 1

var

 n:integer;

begin

 write('Введите число <=100: '); readln(n);

 if n>100 then

   exit

     else

       repeat

         writeln('Результат: ',n div 2);

         write('Введите число <=100: '); readln(n);

       until n>100;

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!