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

ней количество вхождений букв 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.

st1 строку str2 и из нечетных символов - строку

str3.
Решение: var
str1,str2,str3: string; l,i: byte;
begin
readln(str1);
str2 := ‘ ';
str3 := ‘ ';
l := length(str1);
for i:=1 to l do
if odd(i) then
str3 := str3 + str1[i]
else
str2 := str2 + str1[i];
writeln(str2);
writeln(str3);
end.

строчных и прописных букв к общему числу символов в

нем.

Решение:var str: string;i, len, let_b, let_s: integer;
begin
readln(str);
len := length(str);
let_b := 0;
let_s := 0;
for i:=1 to len do
if (str[i] >= 'a') and (str[i] <= 'z') then
let_s := let_s + 1
else if (str[i] >= 'A') and (str[i] <= 'Z') then
let_b := let_b + 1;

writeln((let_s/len)*100:5:2);writeln((let_b/len)*100:5:2);writeln;
end.

встречающегося символа.
var
s1,s2,s3: string; i: byte;
begin
write('String:

');
readln(s1);
s2 := ‘ ';
for i:=1 to length(s1) do begin
s3 := copy(s1,i,1);
if pos(s3,s2) = 0 then
s2 := s2 + s3
end;
writeln('String: ',s2);
readln
end.