Найти все натуральные числа 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);