Всем ,кто плохо написал практическуюзадание: Выучить наизусть задачи. Будете их решать. Те кто писал с учебника - улучшить отметку нельзя

ВСЕМ, кто не писал практическую - будет бисать

 Выучить 2 задачи наизусть.

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

Var s:string;

i:integer; 

begin

 read(s);

  for i:=1 to length(s) do if s[i]='а' then s[i]:='о' ;    

  write(s); 

      end.

//Пример 7. Дана строка. Написать программу, вставляющую после каждой точки символ пробела.

// заведем вторую строку и будем в неё переписывать по одному символу из оригинальной строки. Если повстречаем символ точки, то будем к новой строке добавлять пробел.

Var s_old, s_new:string; 

       i:integer; 

begin

   read(s_old);

   s_new:=''; // задаем начальное значение новой строки

   for i:=1 to length(s_old)  do // просматриваем  каждый символ строки

   begin

    s_new:=s_new+s_old[i]; // добавляем символ к новой строке 

    if s_old[i] = '.' then s_new:=s_new+'   '; // если символ равен точке, то добавляем пробел

   end;

  write(s_new); 

end.