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

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


textual

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

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

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.571 из 5



Похожие ответы
  1. Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

  1. Задание: в целочисленном векторе vector найти минимальное положительное и максимальное отрицательное числа, не входящие в этот вектор. Предусмотреть случай, когда таких элементов нет. Нужно добавить выделенное условие в программу:

  1. Написать программу, которая позволяет вводить действительные числа (количество предварительно задается либо завершается по указанию пользователя), заносить их в файл и выполнять их обработку: - Выбрать из файла положительные числа, вывести их на экран и записать в новый файл.

  1. Всем доброго времени суток! Помогите, пожалуйста, с задачей. Дана строка, в которой записано целое число, например: триста двадцать один. Найти сумму цифр этого числа. В приведенном примере это 6. Проблема в том, что вроде понимаю как делать, но написать код ума не хватает. Заранее спасибо за помощь.

  1. дано многоразрядное число n<=10^5 найти среднее арифметическое числа разряды которого равны 2 и 5

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

  1. Найти все числа, не превосходящие n, которые равны произведению своих делителей меньших n (Реализовать функцию, вычисляющую произведение делителей числа).

  1. Добрый день. Помогите пожалуйста написать программу! Дано три целых числа, вычислить среднее арифметическое двух чисел (первого и второго, первого и третьего, второго и третьего) и среднее арифметическое трех чисел: a)Функция Srzach2 находит среднее арифметическое двух чисел); b)Функция Srzach3 (находит среднее арифметическое трех чисел);

  1. сформировать два массива целых чисел определенной длины вывести на печать числа встречающиеся в каждом массиве в паскале