Урок 11-12 ноября подготовка к практической работе 18 и 19 ноября

1  Напишите программу, которая определит количество предложений в тексте. Предложение  заканчивается  символом  «.»

2 Напишите  программу,  которая  определит  количество  слов  в  тексте,  если  между 
любыми  двумя  словами  может  быть  неболее  одного  пробела.  

3Написать программу, определяющую, сколько раз в строке встречается буква «п» маленькая, русская. 
 
4Написать программу, определяющую, сколько раз в строке встречается буква «л» маленькая, русская. 

5 Написать программу, заменяющую в строке все буквы «и» на буквы «ы».

  6Написать программу, определяющую, сколько раз в строке встречается буква «п» маленькая, русская и вывести все индексы буквы  «п».

7 Написать программу, заменяющую в строке все буквы «и» на буквы «ы» и подсчитать количество замен

8 Напишите программу, которая определит, каких букв в строке с русским текстом 
больше: «о» или «O» 

 9 Напишите  программу,  которая  определит,  сколько  слов  в  тексте  начинается  на 
букву «а».

10 Напишите  программу,  которая  заменит  в  заданном  тексте  из  латинских  букв все 
вхождения «f» на «kf»

Шаблон команд

• var s:string; 
•  i,k:integer; 
• begin 
• read(s);  
•  k:=0;
• for i:= 1 to length(s)  do
•  if s[i]='а' then k:=k+1; 
• w rite('а штук' , k); 
•   for i:=1 to length(s) do
•  if s[i]='а' then s[i]:='о' ;   
•   if s[i]='а' then  w rite('индекс буквы а' , i); 
• if s[i]='а' then  begin w rite('индекс буквы а' , i); n := n+1 ;end  ;