8 бит=1 байт
24576/8=3072 байт
1024 байт=1 кбайт
3072/1024=3 кбайт
Ответ - 3 кбайт
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do if s[i]=' ' then begin
if s[1]=s[i+1] then
writeln('слова начинаются с одной и той же буквы')
else writeln('слова начинаются с разных букв');
if s[i-1]=s[i+1] then
write('второе слово начинается с той же буквы, на которую заканчивается первое слово')
else
write('второе слово не начинается с той же буквы, на которую заканчивается первое слово');
break;
end;
end.
Var m : array[1..50] of Integer;
i,max : Integer;
Begin
max:=0;
For i:=1 to 50 do
Begin
m[i]:=Random(100);
if m[i]>max then max:=m[i];
end;
Writeln(max);
end.
<span>
var
l,a,b:integer;
s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
begin
a:=pos('(',s);
b:=pos(')',s);
if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
if (a=0) and (b>0) then writeln('Скобка не открыта');
if (a>0) and (b=0) then writeln('Скобка не закрыта');
if (a=0) and (b=0) then writeln('Текста в скобках нет');
end;
<span>end.
var
n,i,k:integer;
s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
i:=pos(' ',t);
delete(t,1,i);
until i=0;
k:=length(t);
for i:=1 to k do
if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
<span>end.</span></span></span>
3200 Байт = 3200*8 бит = 25600 бит = 25600 / 1024 КБит = 25 Кбит
Не знаю, как вы хотели, чтобы это представили через степень двойки.
