Составить программу подсчета количества четных составных делителей натурального числа M

@Burning Angel · Регистрация: 07.12.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, срочно нужна помощь! Нужно составить программу подсчета количества четных составных делителей натурального числа M.

@Puporev · 10.01.2015, 13:06

Pascal

function sost(n:integer):boolean; //определение четного составного
var i,f:integer;
begin
if odd(n) then f:=0
else
 begin
  i:=2;//проверим на делимость начиная с 2
  f:=0;//не делится
  while(i*i<=n)and(f=0) do
  if n mod i=0 then f:=1
  else inc(i);
 end;
sost:=f=1
end;
var m,i,k:integer;
begin
repeat
write('Введите натуральное число m=');
readln(m);
until m>0;
k:=0; //количество четныхсоставных делителей
for i:=4 to m div 2 do  //4 наименьший четный составной, само пока число не проверяем
if (m mod i=0)and sost(i) then
 begin
  inc(k);
  writeln(i) //если нужно вывести
 end;
//если само число считать делителем
if sost(m) then
 begin
  writeln(m);
  inc(k)
 end;
write('Количество четных составных делителей=',k);
end.

@Burning Angel 0 / 0 / 0 Регистрация: 07.12.2014 Сообщений: 17
		1
	Составить программу подсчета количества четных составных делителей натурального числа M 10.01.2015, 12:15. Показов 1813. Ответов 1 Метки нет (Все метки) Здравствуйте, срочно нужна помощь! Нужно составить программу подсчета количества четных составных делителей натурального числа M. 0

	10.01.2015, 13:06

Опции темы

Составить программу подсчета количества четных составных делителей натурального числа M

Решение