topsis000

Nariai

Reputacijos išklotinė

topsis000 sureagavo į citni Padėkite su pascal uždaviniu Vasario 20, 2012

program suma; var y,z,x,i : longint; begin Readln(x); z := 1; for i:= 1 to x do begin y := y*10+1; z := z + y; end; Writeln(z); end.
topsis000 sureagavo į fpsss Padėkite su pascal uždaviniu Vasario 20, 2012

Dėkui
Dar gal kas šią parašys :
Parašykite algoritmą sumai 1 •3 + 3 •5 + ... + n •(n + 2) apskaičiuoti, kai n – nelyginis natūralusis skaičius.
topsis000 sureagavo į iGor Padėkite su pascal uždaviniu Vasario 20, 2012

program antra_uzd; var ats, n, i, tarpinis: integer; begin Readln(n); ats := 0; tarpinis := 1; for i := 1 to n do begin ats := ats + (tarpinis * (tarpinis + 2)); tarpinis := tarpinis + 2; end; Writeln(ats); Readln; end.
topsis000 sureagavo į JurgisG Padėkite su pascal uždaviniu Vasario 20, 2012

1. program pirma_uzduotis; var i, A, n : longint; suma : longint; begin Readln(n); suma := 0; A := 1; for i := 1 to n do begin suma := suma + A; A := (A * 10) + 1; end; Writeln(suma); Readln; end.

2. program antra_uzduotis; var i, n, x : integer; suma, A : longint; begin Readln(n); suma := 0; A := 1; for i := 1 to n do begin x := (A + 2) * A; suma := suma + x; A := A + 2; end; Writeln(suma); Readln; end.

3. program trecia_uzduotis; const RS = 4; //Keturi skrituliai var i, n : integer; plotas : real; begin Readln(n); plotas := 0; for i := 1 to RS do begin plotas := plotas + ((n * n) * 3.14); n := n div 2; end; Writeln(plotas:0:2); Readln; end.