Плохая масштабируемость, большой размер файлов.
Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
Uses crt;
var i,N:integer;
s:real;
begin
s:=0;
write('вв N');
read(N);
for i:=1 to N do
s:=s+sqrt(i);
write('otvet:', s);
readkey
end.
Номер2 1-д 2-а 3-б.
Другие не знаю.
При мощности алфавита 4096 символов для хранения одного символа требуется log(2)4094 = 12 бит (это и есть информационный вес одного символа).
<span>Количество символов в сообщении = 4*1024*8/12 </span>≈ 2730