Elaborati un program care va calcula aria triunghiului dupa teorema lui Pitagora.

Răspuns :

program Aria;

var  a, b, Ar: real;

begin
  writeln('Triunghi dreptunghic');
  write('Latura A = ');  readln(a);
  write('Latura B = ');
  readln(b);
  Ar := (a * b / 2);
  writeln('Aria este ', Ar);
end.
Vezi imaginea KIRILLL
Vezi imaginea KIRILLL