Var i,j,x,n
x - введенное число, i - число с которым нужно сравнить, n - счётчик чисел
n:=0;
ReadLn (i);
for j:=1 to 5 do begin
ReadLn (x);
if x=i then n:=n+1;
end;
writeLn("N= "n)
Набери в интернете "создать сайт бесплатно потом надо будет аккаунт пароль вообщем реестра и а дальше надо будет выбрать тему сайта
65*23*4=5980 символов всего.
N=16 симв. i = 4 бита
V = k × i = 23920 бит
Всё очень просто.
Есть формула - V =R*D*I*T
где R - моно или стерео 1 или 2.
D - частота дискретизации.
I - глубина кодирования.
T - время.
V=2*8000 Гц*32 бит*60 с =30720000 бит =3840000 байт = 3750 Кб
1. Сканирование: 3*40 = 120 с
2. Распознавание: 2*40 = 80 с
3. Смена страницы 9*39 = 351 с (последнюю страницу вытаскивать не надо (не обязательно).
Итого: 120+80+351=551 с = 9,183 с