1 2 3 4 5 6 | INPUT "vvedite chislo N ", n FOR i = 1 TO n FOR j = 1 TO SQR(i) IF SQR(i - j ^ 2 ) > 0 AND SQR(i - j ^ 2 ) = INT(i - j ^ 2 ) THEN PRINT i; "="; j; "^ 2 +"; SQR(i - j ^ 2 ); "^ 2 " NEXT NEXT |
Тестирование выполнено в программе QB64 ( Скачать )