8.2.. Ispisati prvih a parnih prirodnih brojeva
Opis rješenja:
Listing programa:
PROGRAM p08212179;
{Ispisati prvih a parnih prirodnih brojeva}
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i, br, a : Integer; { cjelobrojne promjenljive }
BEGIN
Writeln('Ispisati prvih a parnih prirodnih brojeva');
Write('Unesi koliko parnih brojeva ce se ispsiati: ');
Readln(a);
Writeln(a, ' parnih prirodnih brojeva');
br := 0; { pocetna vrijednost brojaca }
i := 1; { pocetna vrijednost kontrolne varijable }
WHILE br < a DO { dok je br < a (nije ispisano a parnih brojeva) ponavljaj - pocetak petlje }
BEGIN
IF i MOD 2= 0 THEN
BEGIN
br := br + 1; { slijedeca vrijednost brojaca }
Writeln(i);
END;
i := i + 1; { slijedeca vrijednost kontrolne varijable i }
END; { kraj while petlje }
END.
Ispis na ekranu:
Index
|