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