Задание:
Составить программу для Pascal ABC, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда даннаятройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c^2=a^2+b^2.
Решение:
uses crt; vart1: boolean; a, b, c: integer; beginreadln (a, b, c); if c*c=a*a+b*b then t1: =true else t1: =false; writeln (t1); readkey; end.
Знаете другой ответ?