Сначала банальный код - рабочий, но уже на больших числах будет переполнение переменной факториала.
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>
1. Ручка взята. 2.2. 3.положить ручку на стол.4.окончено.
До перелива 8 0 0
1) 3 5 0
2) 3 2 3
3) 6 2 0
4) 6 0 2
5) 1 5 2
6) 1 4 3
<span>7) 4 4 0</span>
Ну где качество печати ужасное и нужно распознать его - используют векторный метод распознания, а растровый накладывается на растровые шаблоны символов, которые хранятся в памяти системы
Program progul ;
var total , lost , visit : real ;
begin
write ('vvedite vsego zaniatii Total=' ) ;
readln ( total ) ;
write ( 'vvedite Propuskov =' ) ;
readln ( lost ) ;
visit := (total - lost ) / total * 100 ;
writeln ( 'procent poseshaemosti=' , visit:5:2 , '%' ) ;
end.
