Program uolt;
var s,n:real;
begin
s:=10;
n:=1;
while s<20 do
begin
s:=s+s*0.1;
n:=n+1;
end;
writeln('через ',n,' дн. спортсмен будет пробегать более 20 км в день');
<span>end.</span>
<span>Любое наглядное пособие, используемое на уроках, является моделью</span>
X=4
2002=2*4^(3)+2*4^(0)=130
Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала.
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>