8.3.. Ispisati prirodne brojeve od 1 do 5 koji su djeljivi sa a.
Listing programa:
PROGRAM p08311045;
USES
WINCRT;
VAR
I,A: INTEGER;
BEGIN
WRITELN('1 DO 5');
WRITELN('UNESI A ');
READLN(A);
i:=1;
REPEAT
IF I MOD A=0 THEN
WRITELN ('i=',I);
i := i + 1;
UNTIL i > 5;
END.
Ispis na ekranu:
Index
|