8.1.. Ispisati prirodne brojeve od 1 do 17 koji su djeljivi sa a.
Listing programa:
PROGRAM P08111039;
USES
WINCRT;
VAR
I,A: INTEGER;
BEGIN
WRITELN('DJELJIVI SA a OD 1 DO 17');
WRITELN('UNESI A ');
READLN(A);
FOR I:=1 TO 17 DO
IF I MOD A=0 THEN
WRITELN ('I=',I);
END.
Ispis na ekranu:
Index
|