<span><span><span><span>
Program BS;var P,X:Real;BeginP:=1;X:=1;While X<=5 dobeginX:=X+0.5;P:=P*X;End;Writeln(P);end.
</span></span></span></span>
1байт=8бит
1кб=1024байт
6*8192-64х=32х
96х=49152
х=512
Проверка:
49152-32768=32*512
32*512=16384
49152-32768=16384
х=512бит
либо х=64 байта
После "<span> for i := 1 to length(s) do"
</span>Вставь вот это и проверь:
<span>if (s[i] = 'с') then kol:=kol+1;
writeln(kol);
readln
end.</span>