Question

Scrieţi o funcţie PASCAL cu numele AP, care returnează valoarea TRUE dacă trei numere întregi
date a, b, c pot forma mărimile unghiurilor (în grade) ale unui trinunghi dreptunghic şi FALSE - în
caz contrar. Valorile a, b, c vor fi transmise funcţiei în calitate de parametri.

Answer 1

var a,b:integer;c,c1:real;     procedure AP();     begin;     readln(a,b,c1);     c:=sqrt(a*a+b*b);     if c1=c then      writeln('True')     else writeln('False');     end;Begin     AP;end.