Prikazi cijelu temu 04.12.2014 19:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Sabiranje parnih brojeva od 1-100
sabiranje svih parnih brojeva od 1 do 100.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM10;
  2. USES WinCRT;
  3. VAR
  4.   i, s: Integer;
  5. BEGIN
  6.   s:=0;
  7.   FOR i:=1 TO 100 DO
  8.     s := s + i ;
  9.   Writeln('suma prvih 100 prirodnih brojeva je ',s);
  10. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.