Question

написать программу которая вычисляет сумму первых n членов ряда 1,3,5.. (while,repeat,for ) на паскале

Answer 1

var

s, a, i: integer;

begin

s:=0;

write('a = ');

readln(a);

for i := 1 to a do

begin

s:=s+(2*i-1);

end;

writeln(s);

end.