1012,1112,10002,10102,11002,1000012.
Var a,b,c:real;n,i:integer;beginWrite('Ввидите N='); Readln(n);for i:=1 to N do b:=b+(2*n+1);c:=1;for i:=1 to n do c:=c*(2*n+1);a:=b/c;WritelN('A=',A);end.
Лови. может напутал в составных каши, не повар хд
Программа:
var x,y:real;
begin
x:=2007;
y:=x/(1+x*x/(3+2*x*2*x*2*x));
writeln('y=',y:5:3);
<span>end.
Блок-схема - в прилагаемом файле.</span>
program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
<h3><em><u>Язык PascalABC</u></em></h3>