Дана последовательность слов. Проверить правильность написания слогов "жи", "ши"

@Walter Bishop · Регистрация: 27.09.2011

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

Дана последовательность слов. Проверить правильность написания слогов "жи", "ши".
Тема: строки

@КонецСвета · 24.09.2012, 20:42

Pascal

uses crt;
var s,sc: string;
    i,k: integer;
begin
write('s=');
readln(s);
for i:=1 to length(s)-1 do
    begin
    sc:=copy(s,i,2);
    if (sc='жы') or (sc='шы') then
       begin
       s[i+1]:='и';
       inc(k);
       end;
    end;
if k=0 then writeln('Ошибок не обнаружено') else
begin
writeln('Обнаружены ошибки в количестве ',k,'. Ошибки исправлены: ');
writeln(s);
end;
readkey
end.

@ermolay · 24.09.2012, 20:46

как всегда опоздал))

Pascal

var
  str: string;
  i,k: integer;
begin
  write('Введите предложение: ');
  readln(str);
  k:=0;
  for i:=1 to length(str)-1 do
  begin
    if (str[i] in ['Ж','ж','Ш','ш'])and(str[i+1] in ['Ы','ы'])
    then inc(k);
  end;
  if k=0 then writeln('Ошибок на данное правило нет') else
    writeln('В предложении ',k,' ошибок на данное правило');
  readln;
end.

@Walter Bishop 7 / 7 / 0 Регистрация: 27.09.2011 Сообщений: 144
		1
	Дана последовательность слов. Проверить правильность написания слогов "жи", "ши" 24.09.2012, 20:37. Показов 7912. Ответов 2 Метки нет (Все метки) Дана последовательность слов. Проверить правильность написания слогов "жи", "ши". Тема: строки 0

Опции темы

Дана последовательность слов. Проверить правильность написания слогов "жи", "ши"

Решение