Строки, задание

[bender1993]

Строки, задание

В заданном предложении подсчитать, каких букв встречается больше „к“ или „р“.

язык Паскаль

 

[Евгений]

var s:string;
i,k,p:integer;
begin
Writeln('String : '); Readln(s);
k:=0; p:=0;
for i:=1 to Length(s) do
if s='к' then Inc(k)
else
if s='р' then Inc(p);
Writeln;
Writeln('k = ',k);
Writeln;
Writeln('p = ',p);
Readln;
end.