Презентация, доклад Обработка строк 2 часть

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.

и из нечетных символов - строку 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.

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.