<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>
Введите строку Мама мыла раму маша ела кашу
Мааамааа маыалааа рааамауа мааашааа еалааа кааашауа
1) 44-27=17 (р.) - едят только живой корм
2) 33-27=6 (р.) - едят только сушеный корм
3) 27+17+6=50 (р.) - не питаются свежими растениями
4) 52-50=2 (р.0
Ответ: свежими растениями питаются 2 рыбки.
2.
a=1
b=3
b=4
a=1
3.
8 до 12 = 5 раз
5*12=60
ответ 60
5.
чем больше & тем меньше страниц значит
АБГВ
var
x, f: real;
begin
read(x);
if x <= 2 then f := x*x + 4*x + 5
else f := 1 / (x*x + 4*x + 5);
writeln(f);
end.