1) узнаем количество символов на экране:
25*80=2000 символов.
в кодирвке КОИ -8 каждый символ кодируется 8 битами. таким образом: 2000*8 = 16000бит=2000байт=1,953125кБ
2) пусть х - количество символов, у - количество информации. запишем систему уравнений:
ну и решаем это неравенство. подставим вместо у во второе уравнение 8х:
16х=8х+8000
8х = 8000
х = 1000 символов
3) считаем количество символов в предложении:
32 символа * 8 бит = 256 бит = 32 байта.
ответ: (смотрите внимательно, у вас опечатка в ответах в 3 задаче)
f: array[1..10] of integer;
i,suma,sumb:integer;
begin
randomize;
for i:=1 to 10 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
suma:=0;
sumb:=0;
for i:= 1 to 10 do
if f[i] mod 2 = 0 then
suma:=suma+f[i];
else
sumb:sumb+f[i];
writeln('Сумма четных: ',suma);
writeln('Сумма нечетных: ',sumb);
end.
var
f: array[1..8] of integer;
i,k,sumb:integer;
begin
randomize;
for i:=1 to 8 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
k:=0;
sumb:=0;
for i:= 1 to 8 do
if f[i] mod 2 = 0 then
k:=k+1;
else
sumb:sumb+f[i];
writeln('Количество четных: ',k);
writeln('Сумма нечетных: ',sumb);
end.