I = M*N*i = 50*40*16 = 32000бит;
32000:5 = 6400бит/сек = 800байт/cек
В зависимости от типа форматирования носителя...А так 0,5 Кбайт.= 512 Байт
Var a,b,c,n:integer;begin readln(n); if n <= 2 then writeln(1) else begin a := 1; b := 1; while n > 2 do begin c := a + b; a := b; b := c; dec(n) end; writeln(c); end;<span>end.</span>
Аня - туристка, Боря - художник, Гриша - футболист, Дина - певица, Вася - танцор