Натуральные числа а, b, с называются числами Пифагора, если выполняется условие а2 + b2 = с2. Напечатать все числа Пифагора (программа Паскаль)

sahin123321 sahin123321    1   16.04.2019 23:00    12

Ответы
LB1621 LB1621  16.04.2019 23:00
var
a,b,n:integer;
begin
readln(n);
for a:=1 to n-1 do
  for b:=1 to n-1 do
 if (sqrt (a*a+b*b)=int( sqrt (a*a+b*b))) and( sqrt (a*a+b*b)<n) then writeln (a,' ',b,' ',trunc(sqrt(a*a+b*b)));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы