Помогите создать проект в Delphi 7Составьте программу вычисления суммы:S = 1 +3 +5 +7...

0 голосов
58 просмотров

Помогите создать проект в Delphi 7
Составьте программу вычисления суммы:
S = 1 +3 +5 +7 +…+(2*N +1)..


Информатика (26 баллов) | 58 просмотров
Дан 1 ответ
0 голосов

Пишу только фрагмент.
...

Readln(N);

S:=1;

for i:=0 to N-1 do
S:=S+(2*i+1);
Writeln('Сумма равна ,'S);
...

 Вот так

(46 баллов)