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

disel
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

Похожие записи/страницы:

Leave a Comment