1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
Var x:string;
i,y,z:longint;
begin
readln(x);
y:=length(x);
for I:=4 to y do
begin
if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;
end;
write(z)
end.
1 Мбайт = 1024 Кбайт
1/16 Мбайта = 64 Кбайта
64 Кбайт = 65536 байт
65536 байт = 524288 бит
2^i = 16; i = 4;
524288 / 4 = 131072 символов
Ответ прилагается на фото