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