Составить программу для Pascal ABC, печатающую значение true…

Question

Составить программу для Pascal ABC, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда даннаятройка натуральных чисел a, b, c является тройкой Пифагора, т.е. c^2=a^2+b^2.

Answer 1

35

armor

31 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить