8.1.. Ispis prirodnih brojeva od 1 do n koji nisu djeljivi sa a.
Listing programa:
PROGRAM p08111050;
{ispis prirodnih brojeva od 1 do n koji nisu djeljivi sa a}
VAR { deklarisanje promjenljivih }
i, n, a : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('Od 1 do n koji nisu djeljivi sa a');
Write(n);
Readln(n);
Write(a);
Readln(a);
FOR i:=1 TO n DO { ponavljaj za i=1 do n - pocetak petlje }
IF i MOD a <> 0 THEN { djeljivi sa a od 1 do n prirodnih brojeva? }
WRITELN ('i = ', i); { ispis u petlji }
READLN;
END.
Ispis na ekranu:
Index
|