Требовалось написать программу, при выполнении которой с клавиатуры вводится натуральное число, не превосходящее 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) Найдите в программе все ошибки.

Программа выводит не первую цифру, а последнюю - остаток при делении числа на десять. Если ввести число 1984, то будет выведена цифра 4. Если у числа первая и последняя цифра совпадают, то программа выдаст правильный ответ. Пример: 4984. Если заменить строку n:=n mod 10 на n:=n div 10, то программа будет выводить первую цифру.

Если используется присваивание n:=n mod 10, то цикл не нужен, он все равно выполнится только один раз, так как остаток при делении на 10 меньше 10.

В цикле можно обойтись без служебных слов begin и end (в теле цикла только один оператор).

Точку с запятой после последней команды не ставят перед (end c точкой).