Практическая 18 и 19 ноября

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

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

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

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

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

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

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

10Написать программу, определяющую является ли слово полиндромом

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

• 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  ;
• if ( a mod 2 = 0 )  and  ( a mod 34 = 0   )