Дано трехзначное число. используя одну операцию деления нацело, вывести первую цифру данного числа(сотни)

целочисленное деление - арифметическая операция, результатом которой является целая часть частного, полученного делением одного целого числа на другое целое число. то есть деление без учета остатка.

для того чтобы получить первую цифру - надо трехзначное число разделить на 100.

например 123 если разделить целочисленно на 100 - получится 1

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.