Question

Написать программу с помощью которой вводится натуральное число n (n>99) Затем программа должна вычислить кол-во сотен в введённом числе .

Answer 1

Var  i, n:integer;
begin 
Write('Введите число n >> ');
ReadLn(n);  i := n div 100; 
Write('Количество сотен в числе ', n ,' является ', i);
end.