Найти три целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора: a2 + b2 = c2.

Nikitisna

10. Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора: a2 + b2 = c2.
1 ответ

Nikitisna

uses crt;
var  a,b,c:byte;
begin
clrscr;
for a:=0 to 20 do
for b:=0 to 20 do
for c:=0 to 20 do
if a*a+b*b=c*c then write(a:4,b:4,c:4,';   ');
readkey;
end.