Найти остаток от деления

leonid125

Даны целые положительные числа n и k. Используя только операции сложения и вычитания найти остаток от деления n на k (цикл)
2 ответа

leonid125

CLS
 
DIM n AS LONG
DIM k AS LONG
INPUT "N, K = "; n, k
 
DO WHILE n >= k
   n = n - k
LOOP
 
PRINT "OSTATOK ="; n
END


leonid125

Большое спасибо!!