Определить, сколько существует натуральных чисел 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.

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы