Заменить в введённом тексте слог ан на он

@MrRap · Регистрация: 22.07.2011

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

@Puporev · 22.07.2011, 18:13

Pascal

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

@MrRap · 22.07.2011, 18:22 **[ТС]**

спасибо

Добавлено через 5 минут
а можно пожалуйста полный алгоритм а то у меня не получается

@Puporev · 22.07.2011, 18:36

Pascal

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите текст на русском языке:');
readln(s);
for i:=2 to length(s) do
if(s[i]='н')and(s[i-1]='а') then s[i-1]:='о';
writeln('Замена слогов ан -> он');
write(s);
readln
end.

@MrRap · 22.07.2011, 18:39 **[ТС]**

спасибо понял где моя ошибка неправильно указал переменные

@MrRap 0 / 0 / 0 Регистрация: 22.07.2011 Сообщений: 12
		1
	Заменить в введённом тексте слог ан на он 22.07.2011, 18:03. Показов 957. Ответов 4 Метки нет (Все метки) Заменить в введённом тексте слог ан на он 0

@MrRap 0 / 0 / 0 Регистрация: 22.07.2011 Сообщений: 12
	22.07.2011, 18:22 [ТС]	3
	спасибо Добавлено через 5 минут а можно пожалуйста полный алгоритм а то у меня не получается 0

@MrRap 0 / 0 / 0 Регистрация: 22.07.2011 Сообщений: 12
	22.07.2011, 18:39 [ТС]	5
	спасибо понял где моя ошибка неправильно указал переменные 0