35.  Дана строка; слова разделены пробелами. Подсчитать, сколько в ней букв r, k, t.

Решение

program lab35;

var s:string;

n,i:integer;

begin

writeln('Vvedite stroku');

readln(s);

n:=0;

for i:=1 to length(s) do

   if (s[i]='r') or (s[i]='k') or (s[i]='t') then

     n:=n+1;

writeln('V stroke naydeni bukvi r, k, t : ', n, ' raz');

end.

Второй вариант

Program  lab35_1

var s:string;

nr,nk,nt,i:integer;

begin

writeln('Vvedite stroku');

readln(s);

nr:=0;

nk:=0;

nt:=0;

repeat

if pos(‘r’,s)<>0 then begin inc(nr); delete(s,pos(‘r’,s),1); end

else

if pos(‘k’,s)<>0 then begin inc(nk); delete(s,pos(‘k’,s),1); end

else

if pos(‘t’,s)<>0 then begin inc(nt); delete(s,pos(‘t’,s),1); end

else break;

until false;

writeln('V stroke naydeni bukvi r: ', nr, ' raz');

writeln('V stroke naydeni bukvi k: ', nk, ' raz');

writeln('V stroke naydeni bukvi t: ', nt, ' raz');

end.