8.1.. Izračunati aritmetičku sredinu prirodnih brojeva od a do b.
Listing programa:
REM 08113039
CLS
INPUT "a=", a
INPUT "b=", b
IF a < b THEN
s = 0
br = 0
FOR i = a TO b
s = s + i
br = br + 1
NEXT i
ar = s / br
PRINT ar
ELSE
PRINT "Nije definisano"
END IF
END
Ispis na ekranu:
![](../../pascal/pascal_prir/081/081_izvedi/08113039.gif)
Index
|