6.. Učitati 3 broja. Naći sumu prvog i trećeg te razliku trećeg i prvog.
Listing programa:
PROGRAM P06411154;
VAR { deklarisanje promjenljivih }
a, b, c, x, y : REAL;
BEGIN
WRITELN('suma i razlika'); { naslov }
Write('1. broj ');
Readln(a); { ulaz - ucitavanja promjenljiva }
Write('2. broj ');
Readln(b); { ulaz - ucitavanja promjenljiva }
Write('3. broj ');
Readln(c); { ulaz - ucitavanja promjenljiva }
x := a + c;
y := c - a;
Writeln( 'a = ', a, 'b = ', b, 'c = ', c); { izlaz - ispis }
Writeln( 'Suma prvog i treceg = ', x, ' Razlika treceg i prvog = ', y); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|