Определить, сколько существует натуральных чисел N, подходящих под данное условие - Pascal
Формулировка задачи:
Сколько существует натуральных чисел N со следующим свойством: если к числу N справа приписать число 3375, то полученное число будет делиться на исходное число N?
Решение задачи: «Определить, сколько существует натуральных чисел N, подходящих под данное условие»
textual
Листинг программы
var a,n,k:longint; begin a:=3375; k:=1; writeln('13375/1=13375'); for n:=3 to a do if a mod n=0 then begin writeln(n,a,'/',n,'=',(n*1000+a)div n); k:=k+1; end; write('k=',k); end.