СТРОКОВЫЕ ВЕЛИЧИНЫ 1. Подсчитайте количество запятых в

СТРОКОВЫЕ ВЕЛИЧИНЫ
1. Подсчитайте количество запятых в заданном тексте
Program D1;
Uses Crt;
Var S:string; i,k:integer;
Begin Clrscr;
Writeln('Введите текст:');
Readln( );
k:= ;
for i:=1 to
do
if s[i] = ',' then k:=
Writeln ('Колво запятых = ',
Readln;
End.
;
);
2. Подсчитайте, сколько раз в заданном тексте встречается заданный символ.
Program D2;
Var S : string; symb : char; i,k : integer;
Begin
Writeln (
);
Readln ( );
Writeln ('Введите символ:');
Readln (
);
k:=
;
for I := 1 to
do
if s[i] =
then k:=
;
Writeln (
);
End.
3. В заданном тексте везде букву "а" замените на букву "б",
а букву "б" — на букву "а".
Program D3;
Var S:
; i:
;
Begin
Writeln ('Введите текст');
Readln (
);
For i:=1 to
do
if s[i]= 'а' then s[i]:=
else if s[i]= 'б' then s[i]:= ;
Writeln('Результат:');
writeln( );
End.
4. Замените в заданном тексте буквосочетание "min" на "max".
Program D6;
Var S: string; i,k:
;
Begin
Writeln ('Введите строку:');
Readln (
);
While pos ( 'min', s) <> 0 do
Begin
k:= pos (
);
Delete ( ,
, 3);
Insert ('max', , )
End;
Writeln ('Результат:');
Writeln ( );
End.
5. Вычеркните из заданного слова все буквы "а".
Program D8;
Var S:string; i,k:
;
Begin
Writeln('Введите текст');
Readln(
);
while Pos
do
Begin
k:=Pos(
);
delete(
);
End;
Writeln('Результат:');
writeln(
);
End.
Домашнее задание
6. Определите количество пробелов в заданной строке.
7. В заданном слове каждую букву "б" замените буквосочетанием "ку".
Дополнительное задание
8. В заданном тексте подсчитате общее количество букв "x" и "y". (11 баллов)
9. Удвойте каждую букву в заданном тексте. (12 баллов)