Презентация, доклад на тему Решение задач по обработке строк

букв r, k, t

var
st: string;
i, count: integer;
begin
readln(st);
for i:=1 to length(st) do
if st[i] in ['r', 'k', 't'] then
inc(count);
writeln(count);
end.

:
Var
s: String;i,k1,k2,k3: Integer;
BEGIN
Writeln('Введите строку: '); Readln(s);
For i:=1 to Length(s) do
begin
If s[i]='*' Then Inc(k1);
If s[i]=';' Then Inc(k2);
If s[i]=':' Then Inc(k3);
end;
Writeln('Количество знаков "*" = ',k1);
Writeln('Количество знаков ";" = ',k2);
Writeln('Количество знаков ":" = ',k3);
Readln
END.

и самого длинного слова

Решение 1. Var s:string; max,min,i,k:integer;
begin
write('Введите строку: ');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
  begin
  if s[i]=' ' then
     begin
     if k>max then max:=k;
     if (k     k:=-1;
     end;
  k:=k+1;
  end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
end.

три буквы.

Решение. c,s: string;
begin
write ('vvedite stroku: '); readln (s);
for i:=1 to length(s) do
if (s[i]<>' ') and (s[i]<>'.') then c:=c+s[i]
else begin
if length (c)=3 then writeln (c);
c:=‘ ’; end;
read;
end.

букв abc.