<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadInteger)
.Where(t->(t mod 3=0) and (Abs(t) mod 10=9)).Println
end.
Алфавит 64 символа
1 символ кодируется по формуле
=> 64=2^6
каждый символ 6 бит.
т.к текст 2000 символов то вес документа
2000х6 бит = 12000 бит
Переведем биты в байты 12000 бит-1500 байт (файл)
1500 байт/50 байт/c = 30 секунд!
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2
1* 10^4 + 2*10^3 + 7*10^2+ 5*10^1 +3*10^0