<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку');
for var i:=s.Length downto 1 do
if s[i]<>' ' then Insert('а',s,i+1);
Writeln(s)
end.
<u>Пример</u>
Введите строку Мама мыла раму маша ела кашу
Мааамааа маыалааа рааамауа мааашааа еалааа кааашауа
Можно сам алгоритм? Без данных не сказать...
Выбираем опцию Диаграммы, затем График.
Ответ:
Пиктограмма,изображённая на картинке обозначает,что вода непригодна для питья.