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