На языке паскаль составить программу, которая в диапазоне - вопрос №6469902 от MYSABIEKOVA57 04.09.2021 13:06

Question

Информатика: На языке паскаль составить программу, которая в диапазоне найдёт все тройки натуральных а,в,с, подчиняющихся равенству a^2+в^2=с^2

MYSABIEKOVA57 · Answer

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях работа не гарантируется!
begin
for var a:=1 to 300 do
    for var b:=1 to 300 do
      for var c:=1 to 300 do
        if a*a+b*b=c*c Then Write(a,',',b,',',c,' ');
end.