Программирование / Лабораторные / ЭВТ-1-Паскаль / LABA4_2

program GSA; { ‚лзЁб«Ёвм ¤«п n ў«®¦Ґ­Ё© (...(x+a)^9+a)^9+a)^9+...)^9+a }
                 { §­ зҐЄ ^9 - §­ зЁв ў ¤Ґўпв®© б⥯Ґ­Ё }
uses crt;
var i:integer; { ‚бЇ®¬®Ј вҐ«м­лҐ ЇҐаҐ¬Ґ­­лҐ }
    x,a:real;  { –лдал ¤«п ўлзЁб«Ґ­Ё© }
    n:integer; { Љ®«ЁзҐбвў® ў«®¦Ґ­Ё©  }
    s:real;    { ‚лзЁб«Ґ­ЁҐ (б㬬 ) }

 BEGIN
clrscr;
textcolor(red);
writeln('  Ќг¦­® ўлзЁб«Ёвм ¤«п n ў«®¦Ґ­Ё© (...(x+a)^9+a)^9+a)^9+...)^9+a ');
writeln('                 §­ зҐЄ ^9 - §­ зЁв ў ¤Ґўпв®© б⥯Ґ­Ё');
textcolor(white);
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ў«®¦Ґ­Ё© n=');
readln(n);
write('‚ўҐ¤ЁвҐ x= ');
readln(x);
write('‚ўҐ¤ЁвҐ a=');
readln(a);
{x:=0; a:=1;}
s:=x;
for i:=1 to n do s:=exp(9*ln(s+a));
s:=s+a;
writeln(' ђҐ§г«мв в ўлзЁб«Ґ­Ё© = ',s:8:3);
readln;
 END.