Дано натуральное число n. Среди чисел 1, 2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. (Определить процедуру, позволяющую распознать полные квадраты.) — QBasic(Бейсик)

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 ( Скачать )

Leave a Comment