Ответ:
Код Pascal такая программа?
1
2
3
4
5
6
7
8
9
10
11
12
var
N: word;
begin
write('N = ');
readln(N); {
writeln;
{ Находим и выводим первую цифру числа
как целую часть при делени на 100: }
writeln('Первая цифра числа: ', N div 100);
readln
end.
Объяснение: