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
|
|