Объяснить работу программы для вычисления сколько нулей в факториале (Паскаль)

var

n, x, s: integer;

begin

s:=0;

readln (n) ;

x:=5;

while x < = n do

begin

inc (s, n div x) ;

x: = x * 5

end;

writeln (s) ;

end.

Question

Информатика

Маюня

5 мая, 10:57

Объяснить работу программы для вычисления сколько нулей в факториале (Паскаль)

var

n, x, s: integer;

begin

s:=0;

readln (n) ;

x:=5;

while x < = n do

begin

inc (s, n div x) ;

x: = x * 5

end;

writeln (s) ;

end.

+3

Ответы (1)

Знаете ответ на вопрос?

Виола · Answer 1

S - это счетчик

потом читаем n

x присваиваем значение 5

(цикл) цикл будет работать от x (тоесть от 5) и до тех пор пока n не будет равно x увиличаем число на определённое значение s (тоесть 0, (то число которое ты ввел) находим целую часть этих чисел при делении на x)

x присваиваем значение x * 5

выводим в s

И программа вообще не работает (что тебе нужно найти?)

Объяснить работу программы для вычисления сколько нулей в факториале (Паскаль)varn, x, s: integer;begins:=0;readln (n) ;x:=5;while x < = n dobegininc (s, n div x) ;x: = x * 5end;writeln (s) ;end.

Объяснить работу программы для вычисления сколько нулей в факториале (Паскаль)

var

n, x, s: integer;

begin

s:=0;

readln (n) ;

x:=5;

while x < = n do

begin

inc (s, n div x) ;

x: = x * 5

end;

writeln (s) ;

end.