var s:string;
i:integer;
begin
write ('Введите строку: ');
readln(s);
for i:=length(s) downto 1 do
begin
if s[i]='а' then insert('а',s,i);
if s[i]='б' then insert('б',s,i);
if s[i]='А' then insert('А',s,i);
if s[i]='Б' then insert('Б',s,i);
end;
writeln(s);
end.
#include <iostream>
int gg(int k, int p, double m)
{
p = (k >= p) ? p : p / k;
return (m * 2 * p);
}
int main()
{
int k, p;
double m;
std::cout << "Сколько котлет можно одновременно положить на сковороду ? ";
std::cin >> k;
std::cout << "Сколько минут жарится одна сторона котлеты ? ";
std::cin >> m;
std::cout << "Сколько котлет вы будете жарить ? ";
std::cin >> p;
std::cout << p << " котлет пожарятся с двух сторон минимум за " << gg(k, p, m) << " минут";
}
begin
ReadlnString.Select(t -> LowCase(t) in ['а', 'б'] ? 2 * t : t)
.JoinIntoString('').Println
end.
А роза упала на лапу АзораАА розаа упаалаа наа лаапу ААзораа