//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ReadlnString('Вводите').ToIntegers; mas.println;
var a:=readinteger('Введите число a:');
Writeln('Количество чисел которые меньше а=',mas.Where(t->t<a).Count);
end.
uses crt;
var i,sum,k: integer;
begin
sum:=0;
k:=0;
writeln('<em>Вводите числа. 0 - конец последовательности</em>');
repeat
read(i);
if i mod 2=1 then begin
sum:=sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('<em>Среднее арифметическое нечетных чисел: </em>',sum/k:5:3);
<span>end.</span>
N=2^i.I=k*i
1) N=256,k=600, I-?
256=2^i => i=8 бит
I=600*8=4800 бит
2) N=64,k=1000, I-?
64=2^i => i=6 бит
I=1000*6=6000 бит
25*32=750 символов на странице
750*32=24000 символов всего
24000*8=192000 бит