Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала.
var n, i, fact, ans : integer;
begin
read(n);
fact := 1;
for i := 2 to n do
fact := fact * i;
while (fact mod 10 = 0) do begin
ans := ans + 1;
fact := fact div 10;
end;
writeln(ans);
<span>end.
Теперь более "умный" код, в нём использован тот факт, что простое число p входит в разложение факториала числа N = [N/p] + [N/p^2] + [N/p^3] + ..., где [x] - целая часть числа x.
var n, i, fact, c, pow, ans : integer;
{c - сколько раз входит в разложение числа n! цифра 5}
begin
read(n);
pow := 5;
while (pow <= n) do begin
c += n div pow;
pow := pow * 5;
end;
writeln(c);
<span>end.</span></span>
Алфавит восьмеричной системы счисления: 0,1, 2, 3, 4, 5, 6, 7
Наибольшей цифрой будет 7.
Можно провести аналогию с десятичной системой счисления.
9+1=10, аналогично и в восьмеричной: 7+1=10. Значит 9 - наибольшая цифра десятичной системы счисления, а 7 - наибольшей цифра восьмеричной.
В файле код программы. Вводите X, выбираете функцию для которой искать (<em> что бы выбрать функцию нажмите от цифру 1 до 4 и Enter</em>) Y и программа выводит результат вычислений.
Если что, могу написать код для каждой функции отдельно, но этот проще.
Ответ:
Объяснение:
красный свет стой жёлтый свет пригатовся зелёный свет иди )))
