Написать формулы для написания линейных программ Turbo Paskal : Найти сумму 1-ых n-членов арифметической прогрессии, если 2-ой элемент=5 а 4-ый=6

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2013-01-28T16:41:35+00:00

const a1=4.5; d=0.5;

var S:real; n:integer;

begin

readln(n);

S:=(2*a1*n+d*n*(n-1))/(2);

writeln(S);

end.