Информатика Архивный вопрос

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

Нет комментариев

Ответы

Гость

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

Var  i, n:integer;<br>begin  <br>Write('Введите число n >
Нет комментариев