var s:string;
zs:char;
i,k:byte;
begin
writeln('Text:');
readln(s);
write('Simvol zs=');
readln(zs);
k:=0;
for i:=1 to length(s) do
if s[i]= zs then k:=k+1;
write(k,' raz');
readln
end.
Вариант 2
program p1;
uses crt;
var s,t:string;
i,j:integer;
Begin
writeln('BBEDITE Ctroky ');
readln(s);
writeln('BBedite CimBol ');
readln(t);
j:=0;
for i:=0 to length(s) do
begin
if s[i]=t then j:=j+1;
end;
writeln('Cimvolov ',t,'=',j);
readkey;
End.
Вариант 3
function F(s: string; c: char): byte;
begin
if Pos(c, s) = 0 then
F := 0
else
F := 1 + F(Copy(s, Pos(c, s) + 1, Length(s)), c)
end;
Вариант 4
Program Symbol;
USES CRT;
var t:string;
k,i:integer;
Begin
writeln('Vvedite text:');
read(t);
k:=0;
for i:=1 to length(t) do
Begin
If t[i]='a'
then k:=k+1;
end;
writeln(' Simvol a vstrechaetsa ' ,k, ' raz ');
readkey;
end.
Вариант 5
Program Symbol;
USES CRT;
var t:string;
k,i:integer;
Begin
writeln('Vvedite text:');
read(t);
k:=0;
for i:=1 to length(t) do
Begin
If t[i]='a'
then k:=k+1;
end;
writeln(' Simvol a vstrechaetsa ' ,k, ' raz ');
readkey;
end.