7.2.. Učitati dva broja. Treba od većeg učitanog broja oduzeti manji i rezultat ispisati na ekran.
Listing programa:
PROGRAM P07211099;
VAR
a, b : INTEGER;
BEGIN
Writeln(' od veceg oduzeti manji ');
Write('1. broj: ');
Readln(a);
Write('2. broj: ');
Readln(b);
IF a > b THEN
Writeln('a - b', a - b)
ELSE
Writeln('b - a', b - a);
READLN;
END.
Ispis na ekranu:
Index
|