Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняетсяся равенство - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Привет ребят помогите решить задачку. Найти все натуральные числа a,b,c из интервала от 1 до 20, для которых выполняется равенство

Решение задачи: «Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняетсяся равенство»

textual
Листинг программы
For a:=1 to 20 do
 For b:=1 to 20 do
  For c:=1 to 20 do
    If a*a+b*b=c*c then Writeln(a:4,b:4,c:4);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы