ПОМОГИТЕ ПОЖАЛУЙСТА!1) В заданном предложении заменить все гласные ** парные гласные.2) В...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!
1) В заданном предложении заменить все гласные на парные гласные.
2) В заданном предложении подсчитать количество букв С. Заменить все буквы С на Ш. Подсчитать сколько раз в полученном предложении встречается буква Ш.

Comments

парные гласные ?

---

е-ё

---

и-ы и т.д.

---

что то мне подсказывает что парные бывают только согласные!

---

я уточнил, в условии всё же гласные

---

я не знаю парные согласные но я могу написать 2, надо ?

---

гласные*

---

можешь сделать с согласными?

Answer 1

program test;
var n:string;i,c,sh:integer;
begin
readln(n);
for i:=1 to length(n) do
begin
if (n[i]='б') or (n[i]='Б') then n[i]:='п';if (n[i]='п') or (n[i]='П') then n[i]:='б';
if (n[i]='в') or (n[i]='Б') then n[i]:='ф';if (n[i]='ф') or (n[i]='Ф') then n[i]:='в';
 if (n[i]='г') or (n[i]='Б') then n[i]:='к';if (n[i]='к') or (n[i]='К') then n[i]:='г';
 if (n[i]='д') or (n[i]='Б') then n[i]:='т';if (n[i]='т') or (n[i]='Т') then n[i]:='д';
 if (n[i]='ж') or (n[i]='Б') then n[i]:='ш';if (n[i]='ш') or (n[i]='Ш') then n[i]:='ж';
 if (n[i]='з') or (n[i]='Б') then n[i]:='с';if (n[i]='с') or (n[i]='С') then n[i]:='з';
 end;
writeln('1) ',n);
for i:=1 to length(n) do
 begin if (n[i] = 'С') or (n[i] = 'с')
then
  begin
    inc(c);
    n[i]:='ш';
  end;
if (n[i] = 'Ш') or (n[i] = 'ш')
then
inc(sh);
end;
writeln('2) ',n);
writeln('В предложении буква "Ш" встречаеться:',sh);
writeln('В предложении буква "C" встречаеться:',c);
end.

---

Скачать вложение Текст (TXT)

Comments

мои благодарности!)