8.3.. Izračunati i ispisati sumu prvih 5 prirodnih brojeva. Koristiti REPEAT petlju.
Tekstualni algoritam:
- postaviti početnu vrijednost sume (s:=0;)
- i := 1 početna vrijednost kontrolne varijable i
- formirati novu vrijednost sume (s:=s+i;)
- uvačaj i := i + 1
- ako je i <= 5 vrati se na korak 3
- ispisati izračunatu vrijednost sume (WRITELN('Suma=',s);)
Listing programa:
PROGRAM p08312006;
{suma prvih 5 prirodnih brojeva}
USES
WinCrt;
VAR
i, s : INTEGER;
BEGIN
s := 0;
i:=1;
REPEAT
s := s + i;
i := i + 1;
UNTIL i>5;
WRITELN ('Suma=',s);
END.
Index
|
|