Для числа N определите, сколько нулей в конце десятичной записи N - Факториал
10-11 класс
|
var n,k2,k5,i,a:integer; begin write('n='); read(n); k2:=0; k5:=0; for i:=2 to n do begin a:=i; if a mod 2=0 then while a>=2 do begin a:=a div 2; k2:=k2+1; end; a:=i; if a mod 5=0 then while a>=5 do begin a:=a div 5; k5:=k5+1; end; end; if k2<k5 then write(k2) else write(k5); readln end.
Другие вопросы из категории
Расположить эти носители по возрастанию стоимость за 1 байт.А)D F C Б)D C F В) F D C Г)F C D
Ввод чисел пользователем заканчивается после ввода цифры 0.
Читайте также
В единственной строке входного файла содержится одно целое положительное числа NN(1
N-Factorial - это произведение всех чисел от 1 до N.Для заданного числа N определите,сколько нулей в конце десятичной записи.
Формат входных данных
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
2. Определить, сколько Гбайт содержится в 512 байтах. Результат представить как возведенное в степень число 2.