Предмет: Информатика,
автор: Бум17
Помогите написать программу в Паскаль.
Дан произвольный текст. Преобразовать его по следующим правилам: все буквы «о» заменяются на «оа», все пробелы заменяются символом «_», а запятые удаляются.
Ответы
Автор ответа:
0
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.
Вроде как-то так
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.
Вроде как-то так
Автор ответа:
0
// 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!
begin
var s:=ReadlnString('>');
s:=s.Replace('о','oa').Replace(' ','_').Replace(',','');
Writeln(s);
end.
Тестовое решение
> "Дает корова молоко" - писать, конечно, не легко!
"Дает_кoaрoaва_мoaлoaкoa"_-_писать_кoaнечнoa_не_легкoa!
Похожие вопросы
Предмет: Биология,
автор: ekbdbekajshhsajjs
Предмет: География,
автор: anastasiatauranina
Предмет: Геометрия,
автор: raidgamer565
Предмет: Литература,
автор: yashkinaanastasia
Предмет: Биология,
автор: leraleralera0001