Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала. 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); 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); end.
rozhkova
02.04.2020
Var mas: array[1..20] of integer; i, sum: integer; begin for i: =1 to 20 do begin mas[i]: =random(99); write(mas[i], ' '); end; writeln; i: =1; while(i < 20) do begin sum: =sum+mas[i]; i: =i+2; end; writeln('среднее арифметическое нечётных элементов массива ', sum/10); end.
пф.. арабские цифры , знай на будущие )