Ответы
Ответ дал:
0
Program pr1;
Var x, i,n:Integer; P,a,b: Real;
Begin
P:=1;
a:=0.2;
b:=11/40;
Writeln ('Введите x');
Writeln ('Введите n');
Read (x);
Read (n);
For i:=1 to n do begin
P:=p*(x+(a+b));
a:= a+b;
end;
Write ('P=',P);
End.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад