Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
Количество символов в тексте k=I/i, где I- объем текста, i- количество бит на 1 символ.
i=㏒₂N, где N- количество символов в алфавите.
i=㏒₂64 = 6 бит
k=8190/6= 1365 символов
Var
i, p: integer;
begin
p := 1;
i := 5;
while i <= 10 do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
1) 72-55=17
2) 34:17=2
3) 22+2=24