Дано вещественное число a и целое число n (> 0). вывести 1 + a + a2 + a3 + + an.
ария27
2
18.05.2019 11:30
10
Другие вопросы по теме Информатика
актан9ша
13.03.2019 07:00
dsfsksgsms
03.03.2019 20:50
lolka22281
03.03.2019 20:50
shtoshpulodov
03.03.2019 20:40
yra221111
03.03.2021 06:18
nalininegi
03.03.2021 06:18
hgfgff1Fgfh
03.03.2021 06:17
Популярные вопросы
- Найдти дополнение в целом летом по мшарам нтзовой .корни берез и ольхи подгорели.деревья...
3 - 8класс -x^2+3x-2 или равно 0 это номер 284 4)...
1 - Материальная точка движется прямолинейно по закону s(t)=3t+2 корень t (м)....
1 - Исправь ошибки. объясни. вот село высокое. (место здесь высокое.) это кот...
3 - Прочитайте и письменно переведите на язык текст: geothermal energy and tidal...
2 - Предложения вопрос со словом музыка звенит...
2 - Составить текст со словами бурлить кла кататься кипеть бушевать озаглавить...
2 - Найдите допустимые значения букв, входящих в дробь 13а^2/а-17...
2 - Предстательная железа и семенные пузыри необходимы для выработки семенной...
2 - 2. решите уравнения. а) 2 x^{3} + 4 x^{2} - 8х - 16 = 0. б) 6 x^{2} - 2х...
3
var
A, Summ:real;
N, i:integer;
begin
Summ := 1;
write('a = '); readln(a);
write('n = '); readln(n);
for i := 1 to n do
Summ := Summ + A * i;
writeln('Summ = ', Summ);
end.