<span>В СЛОВЕ МЕГАБАЙТ 64 бита, т. к. каждая буква - 1 байт, а в каждом байте 8 бит</span>
73 728 бит/с = <span> 73 728 </span>/8 байт/с = 9 216 байт/с = 9 216 /1024 Кбайт/с = 9 Кбайт/с
1 мин = 60 с
Объем файла = 9*60 = 540 Кбайт
var
s : string;
l,i,k,a : integer;
begin
readln (s);
l := Length(s);
k := 0;
a := 0;
for i := 1 to l do
begin
if (s[i]=' ') or (i=l) then
begin
if a = 2 then
k := k +1;
a := 0
end
else
if s[i] ='a' then
a := a +1;
end;
writeln(k);<span>
end.</span>
1)
var
a:array[1..14] of integer;
n,k,i:integer;
begin
for i:=1 to 14 do
begin
a[i]:=Random(19);
write(a[i],' ');
end;
writeln;
for i:=1 to 14 do
if (a[i] mod 2=1) and (a[i]<10)
then write(a[i],' ');
readln
end.
2)
var
a:array[1..15] of integer;
n,k,i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=Random(29)-14;;
write(a[i],' ');
end;
writeln;
for i:=10 to 15 do
if a[i]<5
then write(a[i],' ');
readln
end.