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

Question

Венедим

18 июня, 02:52

+4

Ответы (1)

Знаете ответ?

Феодотия · Answer 1

1) 4

2) 7

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