Дано вещественное число A и целое число N (> 0). Вывести 1+A+A2+A3+… +An.

Question

71

Дано вещественное число A и целое число N (> 0). Вывести 1+A+A2+A3+… +An.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

serega174 · Accepted Answer

57

serega174

14 апреля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: