8.1.. Napisati program za nalaženje zajedničkog djelioca 2 učitana broja.

Opis programa:

Za objašnjenje:

Listing programa:

PROGRAM p08115009;
VAR
  manji, br, djelilac, a, b : Integer;
BEGIN
  Writeln ('Najveci zajednicki djelilac');
  Write ('Ucitaj dva broja ');
  READLN(a, b);
  manji := a; {a je manje}
  if (a > b) THEN
    manji := b; {b je manje }
  djelilac := 1;

  FOR br := 2 TO manji DO
    IF ((a MOD br = 0) AND (b MOD br = 0)) THEN
       djelilac := br;

  Writeln('Najveci zajednicki djelilac brojeva ', a, ' i ', b, ' je ', djelilac);
  READLN;
END.

Ispis na ekranu:
Najveci zajednicki djelilac
Ucitaj dva broja 24 30
Najveci zajednicki djelilac brojeva 24 i 30 je 6

Index