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

Луизка

24 августа, 07:03

+1

Ответы (1)

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

Ромаха · Answer 1

1) 4

2) 7

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