Question

Найти количество делителей натурального числа. Сколько из них четных? Решить в Turbo Pascal, без массивов. Срочно, ПОЖАЛУЙСТА

Answer 1

Var N,delit,count,ccount:integer;
begin
read(N);
count:=0; ccount:=0;
for delit:=1 to N do
if N mod delit = 0 then
begin
count:=count+1;
if (delit mod 2 = 0) then ccount:=ccount+1;
end;
writeln('Delit: ',count);
writeln('Chetn Delit: ',ccount);
end.

Answer 2

Конечно, вот пример программы на Turbo Pascal, которая находит количество делителей натурального числа и количество четных делителей:

pascalCopy code
program CountDivisors;

var
  n, i, count, evenCount: integer;

begin
  // Ввод натурального числа
  write('Введите натуральное число: ');
  readln(n);

  count := 0;      // Счетчик всех делителей
  evenCount := 0;  // Счетчик четных делителей

  writeln('Делители числа ', n, ':');

  // Начинаем поиск делителей от 1 и идем до n
  for i := 1 to n do
  begin
    if n mod i = 0 then
    begin
      // i является делителем числа n
      count := count + 1;
      write(i, ' ');

      // Проверяем, является ли делитель четным
      if i mod 2 = 0 then
        evenCount := evenCount + 1;
    end;
  end;

  writeln;
  writeln('Всего делителей: ', count);
  writeln('Из них четных: ', evenCount);

  readln;
end.

Эта программа сначала запрашивает натуральное число, затем находит его делители и подсчитывает как общее количество делителей, так и количество четных делителей.