44032*16/8 = 88064 б на секунду = 86 Кб
88064*60 = 5283840 байт на минуту ≈ 5Мб
5283840*80 = 422707200 байт на минуту ≈ 403Мб
Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.
Слово Александр занимает 72 бит
1*2^6+1*2^5+1*2^4+0*2^3+1*2^2+1*2^1+0*2^0<span> = 64+32+16+0+4+2+0 = 118</span>
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2