Требовалось написать программу,при выполнении которой с клавиатуры вводится натуральное число,не превосходящее 10^8, и выводится его первая цифра.Ученик написал такую программу: var n:longint; begin read(n); while n>10 do begin n:=n mod 10 end; write(n); end. 1)Напишите,что выведет эта программа при вводе числа 1984. 2)Приведите пример числа,при вводе которого программа выдаст верный ответ. 3)Найдите в программе все ошибки.

1) 4
2) 7
3) мы в цикле берем остаток от деления на 10 => последнюю цифру, нужно поменять на n:=n div 10