Predmet:Sabiranje parnih brojeva od 1-100
sabiranje svih parnih brojeva od 1 do 100.
PreuzmiIzvorni kôd (Delphi):PROGRAM PROGRAM10;
USES WinCRT;
VAR
i, s: Integer;
BEGIN
s:=0;
FOR i:=1 TO 100 DO
s := s + i ;
Writeln('suma prvih 100 prirodnih brojeva je ',s);
END.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.