Question

ПОЖАЛУЙСТА
требуется написать программу для вычисления суммы S =1+3+5+7...+(2n-1)
значение n вводится пользователем.

Answer 1

program remdigga;
var S,N,i:real;
begin
S:=1+3+5+7;
i:=N;
while S+N do
begin
S:=S+2*i-1;
i:=i-1;
end;