//Pascal
const
N = 5;
var
a: array [1..N] of integer;
s: integer;
begin
s := 0;
for var i := 1 to N do
begin
a[i] := Random(100);
if (a[i] mod 2 = 0) then s := s + a[i];
write(a[i]:5);
end;
writeln;
writeln('Сумма четных: ', s);
end.
Ячейка - минимальный объект табличного процессора
<em>Ответ прибл 6.5</em>
количество равновероятных событий в лото = 90
N=2^i
90=2^i
log 90 =log 2^i (логарифм по основанию 2)
i log 2 =log 90 (так log 2 =1 по основанию 2)
i=log 90 = lg 90 /lg 2 =1.95 / 0.30 =6.5 бит
Файл - это пакет, вместилище
Документ - это содержимое, которое можно положить в пакет
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.