8.1.. Napisati program za učitavanje 10 brojeva i ispis koliko je učitanih je djeljivo sa 7.

Listing programa:

PROGRAM P08115005;
USES
  WinCrt;
VAR
  i, br, n: Integer;
BEGIN
  Writeln ('Od 10 brojeva koliko je djeljivih sa 7');
  br := 0;
  FOR i := 1 TO 10 DO
    BEGIN
      write (i, '. broj ');
      readln(n);
      IF n MOD 7 = 0 THEN
        br := br + 1;
    END;
  Writeln ('Sa 7 je djeljivo ', br, ' brojeva');
END.

Ispis na ekranu:

Index