Program p1;
const n=10;
var a:array[1..n] of integer;
i:integer;begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
if (a[i] mod 2)=0 then a[i]:=0;
end;
for i:=1 to n do
begin
writeln(a[i]);
end;
<span>
end.</span>
Var a: real;
begin
write('Введите сторону куба = ');
readln(a);
writeln('Объем = ', a * a * a);
writeln('Площадь поверхности = ', 6 * a * a);
end.
запишем условие: I=40Kб, строк=40, символы=64, N=256, страницы-?
решение: из формулы мощности алфавита найдем вес одного символа
N=2^i, 256=2^i, 2^8=2^i, i=8 бит
выразим информационный объем в битах
I=40Кб*1024*8=327680 бит
найдем из формулы информационного объема общее количество символов в тексте K=I/i=327680/8=40960
узнаем сколько страниц в реферате страницы=40960/40/64=16
это и есть ответ