Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>
<span>ЭТО называется: "инструментальные средства разработки", стыдно не знать.
</span>
2^8 = 256
8 бит = 1 байт
======================
А8 2
А9 4
это все что знаю)))))))