составьте программу, которая позволяет заменить в строке слово мама на слово папа
Answers & Comments
CrazyCoder
Var //Объявляем переменные i:integer; s:string; begin // Начало работы блока readln(s); // В переменную S записываем введенную строку i := Pos('мама', s); // В переменную i записываем количество символов до данного слова if i > 0 then //Если количество символов больше нуля тогда begin Delete(s, i, 4); // Удаляем из веденной строки (Переменная S), слово мама, содержащие 4 символа Insert('папа', s, i); // Заменяем словом Папа end; //Конец writeln(s); //Выводим на экран полученный текст end.
Answers & Comments
i:integer;
s:string;
begin // Начало работы блока
readln(s); // В переменную S записываем введенную строку
i := Pos('мама', s); // В переменную i записываем количество символов до данного слова
if i > 0 then //Если количество символов больше нуля тогда
begin
Delete(s, i, 4); // Удаляем из веденной строки (Переменная S), слово мама, содержащие 4 символа
Insert('папа', s, i); // Заменяем словом Папа
end; //Конец
writeln(s); //Выводим на экран полученный текст
end.