topsis000

labai aciu ;)

Salyga visa parasiau, apie limita nieko neraso :)

Parasykite algoritma sumai 1x3+3x5+....+n x(n+2) apskaiciuoti, kai n - nelyginis naturalusis skaicius. (x - daugybos zenklas) Turetu buti kazkas panasaus i sita :) Aciu, kas parasys! program algoritmas; var S, n, d, i :longint; begin WriteLn('Iveskite n'); WriteLn; Readln(n); WriteLn; S:= 0; d:= 1; for i:= 1 to n do begin S:= S + d; d:= d * 10+1 end; WriteLn; WriteLn ('Suma = ', S); WriteLn; ReadLn; end.

D diske dingo visa informacija ir prašo formatuoti, ka daryti? Prisegiau nuotrauka... Nesuprantu kas ivyko, nes is nieko atsirado... Kaip atgauti visus duomenis is to disko? ;((( Aciu