Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 — 3,7; для 23 – «нет делителей»).
program cel;
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.
Похожие записи/страницы:
- Программа нахождения всех делителей заданного целого числа N- Pascal(Паскаль)
- Поиск совершенный чисел - Pascal(Паскаль)
- Дано натуральное число n. Определить будет ли оно совершенным. Число называется совершенным, если оно равно…
- Содружественные числа - это два натуральных числа, каждое из которых равно сумме натуральных делителей другого…
- Дано число N. Найти сумму простых делителей числа N - Pascal(Паскаль)
- 1)дано натуральное число, удалить все цифры А (А вводится с клавиатуры)2)найти все числа от 1 до 200,у которых…
- Дано целое число N (> 1). Если оно является простым, то есть не имеет положительных делителей, кроме 1 и самого…
- Составить программу, проверяющую, является ли заданное число совершенным, т.е. равным сумме своих делителей,…