Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  recherche.pas
Language: PASCAL
Code:
Program Recherche;
Var ch:string;e:char;t,i,s:integer;
Begin
Read(ch);
S:=0;
t:=length(ch);
Read(e);
for i from 1 to t do 
begin
if ch[i]=e then
S:=s+1;
End;
Writeln (S);
End.

          
Comments: