Program zadanie;
begin
writeln('буря мглою небо кроет');
writeln('вихри снежные крутя');
writeln('то как зверь она завоет,');
writeln('то заплачет ,как дитя');
end.
<span><span>в 16ти символьном алфавите каждый символ весит 4 бита так как 2⁴=16
(1/16)*1024*1024*8=1024*512=524288бит( 1/16 часть мегабайта перевели в биты)
524288/4=131072 символа
ответ:131072</span></span>
<span>var n,s,i:integer;
begin
write('n = '); readln(n);
if n mod 2 = 0 then n:=n+1;
s:=0;
for i:=1 to 7 do
begin
s:=s+n;
n:=n+2;
end;
writeln('s = ',s);
end<span>.
Пример:
</span><span>n = 10
s = 119</span></span>