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

Ответы 1

  • // 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.
    • Автор:

      heidy
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years