PC Ekspert Forum - View Single Post

morfoos · 27.11.2008., 20:55

evo skontao sam 2.zadatak ali me pati prvi:

evo drugi.

var n:Integer;
sum:Integer;

begin

writeln (n);
readln (n);
sum :=n * (n+1) div 2;
writeln (sum);
readln;
readln;
end.

27.11.2008., 20:55	#5
morfoos Registered User Datum registracije: Nov 2008 Lokacija: Zupanja Postovi: 8	evo skontao sam 2.zadatak ali me pati prvi: evo drugi. var n:Integer; sum:Integer; begin writeln (n); readln (n); sum :=n * (n+1) div 2; writeln (sum); readln; readln; end.