14.3.. Prebrojati neparne dvocifrene brojeve (nisu djeljivih sa 2).
Listing programa:
PROGRAM p14314017;
USES
WinCrt;
VAR
I,BR: INTEGER;
BEGIN
FOR I:=10 TO 99 DO
IF (I MOD 2<0 )OR ( I MOD 2 >0) THEN
BR:=BR+1;
WRITELN('RESENJE JE',BR);
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
 |
