8.2.. Napisati program za učitavanje prirodnog broja i ispis sa kojim brojevima od 2 do 9 je djeljiv.
Listing programa:
PROGRAM P08215004;
USES
WinCrt;
VAR
i, n: Integer;
BEGIN
write ('Broj ');
readln(n);
i := 2;
WHILE i <= 9 DO
BEGIN
IF n MOD i = 0 THEN
Writeln ('Djeljiv je sa ', i);
i := i + 1;
END;
END.
Ispis na ekranu:
Index
|