8.5.. Ispisati parne dvocifrene brojeve - brojevi djeljivi sa 2 (i MOD 2 = 0).

Opis programa: Ispis se izvodi sa dvije FOR naredbe. Provjerava se samo cifra jedinica.

Listing programa:

PROGRAM p08510106;
{parni dvocifreni brojevei}
USES
  WinCrt;
VAR
  i, j : INTEGER;
BEGIN
  FOR i := 1 TO 9 DO
    FOR j := 0 TO 9 DO
      IF j MOD 2 = 0 THEN
        WRITELN('parni dvocifreni broj ', 10*i+j);
END.

Index