Внешние: монитор,принтер, клавиатура, жёсткий диск и колонки
Var a,k: integer;
begin
readln(a);
k:=0;
while a>0 do
begin
if a mod 2=0 then k:=k+1;
a:=a div 10;
end;
writeln(k);
end.
Пример:
321
1
Формула хартли :
I=log(2)1/p ,p=13/30
I=log(2)30/13=1,206 бит
//Pascal ABC.NET 3.1 сборка 1256
Var
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s<1700000 do
begin
inc(i);
x:=random(150001);
s:=s+x;
writeln('Месяц:',i,', своровал:',x,', сумма на текущий момент:',s);
end;
writeln('Res=',i);
end.