Написать программу определяющую сумму первых 10 членов последовательности, an=5n-1

Question

Евлампия

24 февраля, 21:48

+2

Ответы (1)

Знаете ответ на вопрос?

Васята · Answer 1

Var S, n:integer;

Begin

S:=0;

For n: = 1 to 10 do

S:=S+5*n-1;

WriteLn ('S = ', S) ;

End.

Результат работы программы:

S = 265