<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var Гласные:=['а','е','ё','и','о','у','ы','э','ю','я'];
var s:=ReadlnString;
for var i:=s.Length downto 1 do
if LowCase(s[i]) in Гласные then Insert('c'+LowCase(s[i]),s,i+1);
Writeln(s)
end.
<u>Примеры</u>
Числитель
Чиcислиcитеcель
Анастасия, принеси бумагу и силикатный клей!
Аcанаcастаcасиcияcя, приcинеcесиcи буcумаcагуcу иcи сиcилиcикаcатныcый клеcей!
Ответ:
Название переменных и их зависимость друг от друга
Var a,b,c,d,e,f,k:integer;
begin
for a:=1 to 3 do
for b:=0 to 9 do
if (a<>b) then
for c:=0 to 9 do
if (c<>a)and(c<>b) then
for d:=0 to 9 do
if (d<>a)and(d<>b)and(d<>c) then
for e:=0 to 9 do
if (e<>a)and(e<>b)and(e<>c)and(e<>d) then
begin
k:=a*10000+b*1000+c*100+d*10+e;
for f:=0 to 9 do
if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e) then
if k+k+k=b*10000+e*1000+f*100+a*10+e
then writeln('книга = ',k,' наука = ',b*10000+e*1000+f*100+a*10+e);
end;
end.
Результат:
книга = 28375 наука = 85125