В арифметической прогрессии известны а1, а2. Вывести на экран N членов этой прогрессии и их сумму

Question

Информатика

Надея

29 января, 09:42

В арифметической прогрессии известны а1, а2. Вывести на экран N членов этой прогрессии и их сумму

+4

Ответы (1)

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

Ефремий · Answer 1

Var a1, a2, n, d, i:integer;

begin

readln (a1, a2, n) ;

d:=a2-a1;

write (a1,' ', a2,' ') ;

for i:=2 to n-1 do write (a1+i*d,' ') ;

writeln;

writeln ((2*a1+d * (n-1)) / 2*n:5:0) ;

end.

Пример:

1 2 5

1 2 3 4 5

15