Среди двухзначных чисел найти те, сумма квадратов цифр которых делится 13 -QBasic(Бейсик)

DEFLNG A-Z
 CLS : PRINT "Chisla:";
 FOR i = 10 TO 99
      IF ((i MOD 10) ^ 2 + (i \ 10) ^ 2) MOD 13 = 0 THEN PRINT i;
 NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment