7.2.. Naći najmanju razliku između 4 učitana broja. Poredi se razlika susjednih bojeva.
Listing programa:
PROGRAM P07211105;
VAR
a, b, c, d, rab, rbc, rcd, min: INTEGER;
BEGIN
Writeln(' Naci najmanju razliku ');
Write('1. broj: ');
Readln(a);
Write('2. broj: ');
Readln(b);
Write('3. broj: ');
Readln(c);
Write('4. broj: ');
Readln(d);
rab := a - b;
rbc := b - c;
rcd := c - d;
min := rab;
IF rbc < min THEN
min := rbc;
IF rcd < min THEN
min := rcd;
Writeln('od razlika ' , rab,', ', rbc,', ', rcd, ' najmanja je ', min );
READLN;
END.
Ispis na ekranu:
Index
|
|