Составить программу

[andreis459]

Составить программу

Дана арифметическая прогрессия 1, 3, 5, 7… Составить программу
определения суммы первых пяти ее членов. Вывести значение искомой
суммы и всех ее слагаемых.

 

[Павел]

я несмогу, но думаю вопрос не лишний:
на каком языке?

 

[ZEKE]

Значения арифметической прогрессии должны выводится рандомно? От 0 до 100 или как нибудь еще? Смысл задания не понимаю!

 

[shrek=)]

Вот формула суммы: S=((2*a1+d(n-1))/2)*n a1=1 d=2 n=5 поставили посчитали, но можно еще проще: в цикле while с шагом 2 начиная от одного прибавляем и все.
Вот листинг (сразу предупреждаю не оптимальный):

var
k,i:integer;
s:real;
begin
k:=1;
i:=0;
s:=((2*1+2*(5-1))/2)*5;
while i<>5 do begin
write (k:3);
inc(k,2);
inc(i);
end;
writeln (' ',s);
readln
end.

 

[andreis459]

спасибо

 

[Хелен]

надо было наверно отдельную тему создать.