2. найти произведение p=(x+ 1/5)(x+ 4/9) … (n выполнить ручную трассировку при х=1, n=3 паскаль
mirankov
2
03.10.2019 06:30
1
Другие вопросы по теме Информатика
rustam05mirzaev
05.05.2020 12:51
nbillier2004gmailcom
05.05.2020 12:50
49583
15.05.2020 13:25
Fenef
10.02.2022 15:51
тузель
10.02.2022 15:55
Marina20151111
10.02.2022 15:56
Люсии1г7у
10.02.2022 15:59
sonif1206
10.02.2022 16:02
varzhyv
13.05.2021 10:40
Популярные вопросы
- 2машины одновременно выехали из двух городов в одном направлении...
1 - Зачем объектив фотоаппарата делают подвижным?...
3 - Довжина прямокутної ділянки — 200м, а ширина її становить 64%...
2 - Через 16 лет лена будет на 10 лет старше чем её брат сейчас...
1 - Особенности поведение бурого медведя...
3 - Постройте графики функции в одной системе координат y=-0,5x...
3 - Укажите координаты точки, симметричной точке а (3; 1) относительно...
2 - Выполни проверку. 5 (х+3)+7=3 (3+12)...
2 - За 2 дня путешествия велотуристы преодолели 126 километров причем...
1 - Какие события произошли в правления октавиана августа? 1.взятие...
2
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.