Question

Задача №1 Дана строка, подсчитать количество вхождений слова «кот» в данную строку. Пример: st:=’кровать’; copy(st,2,3); Результат типа string A:=’ров’; program pr1; var st: string; i,k: integer; begin write('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if copy(st,i,3)='кот' then k:=k+1; write('количество вхождений=',k); end. Задача №2 Найти номер позиции, с которой в заданной строке в первый раз встретится некоторое введенное слово. Пример: A:=’юмор’; B:=’ор’; Pos(В,А); Результат типа integer D:=3; program pr2; var st1,st2:string; t:integer; begin write ('введите строку: '); readln(st1); write ('введите слово: '); readln(st2); t:=pos(st2,st1); write('введенное слово начинается с ',t,' позиции'); end. Задача №3 Подсчитать количество запятых в заданном тексте с массива символов. program pr3; var st:string; i,k:integer; begin write ('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if st[i]=',' then k:=k+1; write('количество запятых=',k); end. Задача №4 Заменить в заданной строке все вхождения «ку» на «за» с операции копирования, удаления и вставки. program pr4; var st:string; i:integer; begin write('введите строку:'); readln(st); for i:=1 to length(st) do if copy(st,i,2)='ку' then begin delete(st,i,2); insert('за',st,i); end; write(st); end. Д/з Решить задачи и составить к ним программы: В строке заменить все двоеточие(:)точкой с запятой (;). Подсчитать количество замен. Подсчитать количество букв «О» и «о» в строке.