7.2.. Učitatii a,b, ako je a veće od b onda je c=2a-b, inače je c=a+2b.
Opis rješenja:
Listing programa:
PROGRAM P07211095;
VAR { deklarisanje promjenljivih }
a, b, c : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITE('1. broj '); { ulazne promjenljive }
READLN(a); { 1. broj }
WRITE('2. broj '); { ulazne promjenljive }
READLN(b); { 2. broj }
IF a > b THEN { ako je a vece od b }
c := 2 * a - b { c=2a-b }
ELSE { inace }
c := a + 2 * b; { c=a+2b }
Writeln('a=', a, ' b=', b,' c=', c );
READLN;
END.
Ispis na ekranu:
Index
|
|