Найти все целые делители числа, кроме 1 и его самого - Pascal

  1. Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 - 3,7; для 23 – «нет делителей»).

textual

Код:

var
  n,i,c:longint;
begin
  write('n=');
  readln(n);
  write(n,':');
  for i:=2 to abs(n div 2)+1 do
    if n mod i=0 then begin
      write(i,' ');
      c:=c+1;
    end;
  if c=0 then writeln('no divisors');
  readln;
end.

Блок-схема:

Блок-схема к задаче: Найти все целые делители числа, кроме 1 и его самого - Pascal

Похожие ответы
  1. Дано натуральное число n. Найти все делители этого числа, которые делятся на 3.

  1. Помогите решить a) Найти на отрезке [n, 2n] натуральное число, имеющее наибольшее коли¬чество делителей. b) Составить программу вычислении значений функции F(x) на отрезке [a; b] с шагом h. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции:F(x)=sinX-cosX, a=0, b=P/2, h=P/20 c) Вычислить: sin x +sin x2+ … + sin xn. P.S. Р-число Пи


Нашли ошибку?
Развитие проекта
Яндекс.Метрика