Дано натуральное число N. Получить все такие натуральные Q, что N делится на Q^2 и не делится на Q^3

Категория: Basic

2011-09-28 16:45:49

code: #basic

CLS
INPUT n
FOR i = 1 TO n
IF (n MOD (i ^ 2)) = 0 AND (n MOD (i ^ 3)) <> 0 THEN f = 1: PRINT  i
NEXT
 
IF f <> 1 THEN PRINT " takih chisel net"

автор: ДваДва

Поделиться:

Sample Code