Вычислите информационный объем. Запишите решения вычисления объема информации : А ПОКА 10 День осенний совсем неласково

пригорюнился, принахмурился,

ветром, холодом приукрасился

и уселся в лесу насупленный.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;  

v=24*640*480 = 7372800 бит.

737200: 8 =   байт.

921 600: 1024 = 900 кб

900: 1024 = 0,88 мб

2 мб : 0,88 мб = 2,28.

количество страниц : 2