Составьте программу вывода числа делителей натурального числа М В ПАСКАЛЕ ABC ПОЖАЛУЙСТА

Question

Составьте программу вывода числа делителей натурального числа М
В ПАСКАЛЕ ABC ПОЖАЛУЙСТА

Comments

С 1 и самим m или нет?

Answer 1

Var m,d,kol:uint64;
begin
read(m);
for d:=1 to m do begin
   if (m mod d)=0 then inc(kol);
   end;
write(kol);
end. Это программа для делителей от 1 до m.

var m,d,kol:uint64;beginread(m);for d:=2 to m-1 do begin   if (m mod d)=0 then inc(kol);   end;write(kol);end. Эта программа для делителей от 2 до m-1.