7.2.. Učitati stranice trougla i izračunati obim (Koristiti IF naredbu).

Opis rješenja:

Listing programa:

PROGRAM P07211076;
USES 
  WinCrt;
VAR
 a,b,c:real;
BEGIN
 WRITE('Upisati stranice trougla: ');
 READLN(a,b,c);
 IF (a>0) AND (b>0) AND (c>0) THEN
  WRITELN('Obim trougla je O =',a+b+c)
 ELSE
  WRITELN('Takav trougao ne postoji.');
END.

Ispis na ekranu:

Index