Skaičių seka [Free Pascal]

Paskelbė | 21/02/2012 | Kategorija: Pascal | Komentarų nėra

Parašė padėti su tokiu algoritmu: 1×3+3×5+….+n x(n+2).Taigi parašiau  paskaliu na ir taipogi nusprendžiau įdėti čia.

1×3+3×5+….+n x(n+2)
1*3+3*5+….+n x(n*2)

1
2
3
4
5
6
7
8
9
10
11
12
13

var x,a,i,result:longint;
begin
  WriteLn('iveskite skaiciu!');
  Readln(x);
  a:=1;
  for i:= 1 to x do
    begin
    result:=result+(a*(a+2));
    a:=a+2;
    end;
    writeln(result);
  readln;
end.
Žymos: , , ,

Susiję Įrašai:

Lyginis ar nelyginis skaičius yra? [PHP] Lyginis ar nelyginis skaičius yra? [PHP]
Masyvo maksimumas / minimumas [Pascal] Masyvo maksimumas / minimumas [Pascal]
Kaip nupieštų piramidę / trikampį iš simbolio / skaičiaus? [Free Pascal] Kaip nupieštų piramidę / trikampį iš simbolio / skaičiaus? [Free Pascal]
Šviesoforas [Pascal] Šviesoforas [Pascal]

Palikite komentarą

Rašyti komentarą
© 4327 Viskas Apie Viską. All rights reserved. XHTML / CSS Valid.
Proudly designed byTheme Junkie.