прога в паскале

[rav_]

поможите плиз написать прогу :
написать программу, которая вычисляет сумму первых n членов ряда 1,3,5,7,... количесвто суммируемых членов ряда задаетсяво время работы программы

[vit_galina]

Сообщение от rav_

поможите плиз написать прогу :
написать программу, которая вычисляет сумму первых n членов ряда 1,3,5,7,... количесвто суммируемых членов ряда задаетсяво время работы программы

Общий член ряда определяется формулой: an=2*n-1
Алгоритм следующий:
1)Вводится n
2) S:=0
3) for i=1 to n do
s:=s+2*i-1;
4) вывод S

[kommunist]

program zadacha;
uses crt;  
var s:integer;
      n:integer;
      i:integer;
begin
clrscr;
writeln('vvedite n:');
readln(n);
s:=0;
for i:= 1 to n do
begin
s:=s+2*i - 1;
end;
write('s=',s);
readln;
end.