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

[Святослав2703]

Составьте программу для вычисления суммы:
S = 1 +3 +5 +7 +…+(2*N +1).
Если можно то киньте файлы на почту
slo270395@mail.ru

[Stilet]

(n := 10)
(for ((sum := 0) (i := 1)) (i < n) (i ++) (sum += i) (i += 2))
(write sum)

Подходит?

[Святослав2703]

Извините я не написал что надо составить программу в Delphi. Помогите!!!!

[Аватар]

n:=10; s:=0; k:=1; for i:=0 to n do begin s:=s+k; Inc(k,2); end;

или

s:=Sqr(n+1);

[Stilet]

Я уж оформлю что ли:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
const n=10;
var s,i,k:integer;
begin
//Отак
Writeln(Sqr(n+1));
// Или отак
s:=0; k:=1; for i:=0 to n do begin s:=s+k; Inc(k,2); end;
Writeln(s);
readln;
end.

[Аватар]

Ну вот, совместными усилиями целую программу наваяли Только ТС слинял

[Stilet]

Только ТС слинял

Ничего. Армия стерпит )

[Mad_Cat]

Ну вот, совместными усилиями целую программу наваяли

осталось проект запилить и на почту скинуть)

[Святослав2703]

Ну если можно

[Аватар]

Сообщение от Святослав2703

Ну если можно

Трындец. Полный