Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"

@bosko · Регистрация: 19.06.2014

Студворк — интернет-сервис помощи студентам

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет".

Kodzaev · 03.06.2012, 23:28

Примерно так

Pascal

Uses crt;
Var
s: String;
i: Integer;
BEGIN
Clrscr;
Writeln('Введите строку: '); Readln(s);
For i:=Length(s) downto 1 do
If s[i]='е' Then
Insert('о',s,i+1);
For i:=Length(s) downto 1 do
If (s[i]='д') and (s[i+1]='а') Then
begin
  Delete(s,i,2);
  Insert('нет',s,i+1);
end;
Writeln('Полученная строка:');
Writeln(s);
Readln
END.

@bosko · 03.06.2012, 23:52

Спасибо большое!

@bosko 0 / 0 / 0 Регистрация: 19.06.2014 Сообщений: 10
		1
	Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет" 03.06.2012, 23:07. Показов 2695. Ответов 2 Метки нет (Все метки) Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет". 0

@bosko 0 / 0 / 0 Регистрация: 19.06.2014 Сообщений: 10
	03.06.2012, 23:52	3
	Спасибо большое! 0

Опции темы

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"

Решение