Написать программу в паскаль Ввести текст состоящий из слов , разделённых между собой запятыми. Сколько раз в тексте встречается
Написать программу в паскаль Ввести текст состоящий из слов , разделённых между собой запятыми. Сколько раз в тексте встречается слова "Мама" В найденных словах изменить букву "М" на букву "П"
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var s:=ReadlnString('>'); var a:=s.ToWords(','); Writeln('Количество слов "Мама": ',a.Where(w->w='Мама').Count); s:=(s+',').Replace('Мама,','Пама,'); Delete(s,s.Length,1); s.Println end.
<u>Пример</u> > Мама,мама,что,я,буду,делать,Мама,мама,как,я,буду,жить Количество слов "Мама": 2 Пама,мама,что,я,буду,делать,Пама,мама,как,я,буду,жить
Использовать Робот алг нач цел k k:=1 | 1-пришел снизу | 2-пришел справа | 3-пришел слева | 4-пришел сверху нц пока k>0 нц пока справа свободно и k<>2 вправо счет k:=3 кц нц пока сверху свободно и k<>4 вверх счет k:=1 кц нц пока снизу свободно и k<>1 вниз счет k:=4 кц нц пока слева свободно и k<>3 влево счет k:=2 кц кц кон алг счет нач цел i i:=0 | i-число стенок вокруг если сверху стена то i:=1 все если слева стена то i:=i+1 все если справа стена то i:=i+1 все если снизу стена то i:=i+1 все если i=3 то стоп все если i=1 то закрасить все кон<span> </span>
Var p:char; s,a,b:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите знак действия (+ - * /)'); readln(p); case p of '+': s:=a+b; '*': s:=a*b; '/': s:=a/b; '-': s:=a-b; end; writeln(s); end.