<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>
Введите строку Мама мыла раму маша ела кашу
Мааамааа маыалааа рааамауа мааашааа еалааа кааашауа
<span>(x*!y+z)(!x+y)+!z =
= </span>x*!y*<span>(!x+y)+z*(!x+y)+!z =
</span>= x*!y*!x+<span><span><span><span>x*!y*</span>y+z*(!x+y)+!z =
</span></span></span><span>x*!y*!x = 0</span>
<span>x*!y*y = 0
</span>= <span>z*(!x+y)+!z</span>
//допустим,что будем вводить числа до тех пор, пока не введём 0
int k = 0;//кол-во чисел
int sum = 0;//сумма чисел
float sr;//среднее арифм
int a;//вводимые числа
do {
cout << "Enter: ";
cin >> a;
if (a != 0 && a \% 8 == 0) {
++k;
sum += a;
}
} while (a != 0);
if (k != 0) {
sr = sum / static_cast<float>(k);
}
if (k >= 1) {
cout << "Srednee arifm: " << sr << endl;
}
else {
cout << "NO" << endl;
}
34 символа, на 1 символ 1 байт, т. е. 34*1=34 байта = 272 бита