Проверить правильность написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу"

@михаил111 · Регистрация: 29.03.2011

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

дана последовательность слов. Проверить правильность написания сочетаний "жи","ши","ча","ща","чу","щу". если надо,то исправить их написания

@KaiTheCat · 14.05.2011, 20:04

Pascal

var
   st: string;
   i: byte;
begin
   readln(st);
   for i:=1 to length(st) do
      case upcase(st[i]) of
         'Ж','Ш' : if st[i+1]='ы' then st[i+1]:='и';
         'Ч','Щ' : begin
                       if st[i+1]='я' then st[i+1]:='а';
                       if st[i+1]='ю' then st[i+1]:='у';
                    end;
         end;
   writeln(st);
   readln
end.

@михаил111 0 / 0 / 0 Регистрация: 29.03.2011 Сообщений: 27
		1
	Проверить правильность написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу" 14.05.2011, 17:35. Показов 1815. Ответов 1 Метки нет (Все метки) дана последовательность слов. Проверить правильность написания сочетаний "жи","ши","ча","ща","чу","щу". если надо,то исправить их написания 0

	14.05.2011, 20:04

Опции темы

Проверить правильность написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу"

Решение