Помогите написать программу в Паскаль. Дан произвольный текст. Преобразовать его по следующим правилам: все буквы «о» заменяются на «оа», все пробелы заменяются символом «_», а запятые удаляются.
Помогите написать программу в Паскаль.
Дан произвольный текст. Преобразовать его по следующим правилам: все буквы «о» заменяются на «оа», все пробелы заменяются символом «_», а запятые удаляются.
Гость
Ответ(ы) на вопрос:
Гостьs- переменная текста
i- счетчик
readln(s);
for i:= 1 to length(s) do
begin
if (s[i]='о') then
s[i]:='оа';
if (s[i]=' ') then
(s[i]='_')
if (s[i]=',') then
s[i]:='';
writeln(s);
end.
Вроде как-то так
Гость// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('>');
s:=s.Replace('о','oa').Replace(' ','_').Replace(',','');
Writeln(s);
end.
Тестовое решение
> "Дает корова молоко" - писать, конечно, не легко!
"Дает_кoaрoaва_мoaлoaкoa"_-_писать_кoaнечнoa_не_легкoa!
Не нашли ответ?
Похожие вопросы