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

Listing programa:

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

Ispis na ekranu:

Index