Решение на паскале:
var
a: string;
b, c: byte;
begin
b := 0;
c := 0;
for c := 1 to 30 do
begin
readln(a);
if a = 'Петя' then b := b + 1;
end;
write(b);
end.
Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>
При использовании 8 символов для хранения одного символа требуется log(2)8 = 3 бита. Объем сообщения = 20*8 = 160 бит = 20 байт
Переведём 40 гб в мб.
40*1024=40960
теперь найдём во сколько раз:
40960 / 256 = 160 раз