Информатика | 10 - 11 классы
Найти все делители для заданного числа n.
Паскаль.
Найдите произведение трёх чисел вводимых с клавиатуры при условии , что они больше заданного числа ( найти по программе паскаль )?
Найдите произведение трёх чисел вводимых с клавиатуры при условии , что они больше заданного числа ( найти по программе паскаль ).
Даны два числа?
Даны два числа.
Найти их наибольший общий делитель.
(Паскаль).
Помогите решить задачу по ИВТ на языке паскаль?
Помогите решить задачу по ИВТ на языке паскаль.
Задано 3 числа найти наибольшее из них.
Надо составить программу в паскале, в которой надо найти процент от заданного числа?
Надо составить программу в паскале, в которой надо найти процент от заданного числа.
Помогите написать программы в паскаль, пожалуйста?
Помогите написать программы в паскаль, пожалуйста!
1. Дано число х.
Найти и вывести на экран все его делители и их сумму.
2. В промежутке от 1 до n вывести все числа, сумма делителей которых равна самому числу.
Как задать в Паскале, что переменная может быть любым числом?
Как задать в Паскале, что переменная может быть любым числом.
Найти все делители натурального числа n?
Найти все делители натурального числа n.
Решить через процедуру и функцию в паскале, помогите плиз.
Задано целое число?
Задано целое число.
Из данного числа сделать число - перевертыш на паскале.
Дано натуральное число : а)получить все его делители б)найти сумму его делителей в)найти сумму его четных делителей г)определить количество его нечетных делителей е)определить количество его делителей?
Дано натуральное число : а)получить все его делители б)найти сумму его делителей в)найти сумму его четных делителей г)определить количество его нечетных делителей е)определить количество его делителей.
Сколько из них четных?
Ж)найти количество его делителей, больших d" На ТУРБО ПАСКАЛЕ СРОЧНО!
Как в Паскале задать случайное число?
Как в Паскале задать случайное число?
Вопрос Найти все делители для заданного числа n?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 10 - 11 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
Uses crt ;
var i, n, m : integer ;
begin
read(n) ;
m : = n ;
i : = 1 ;
while i< ; = m do
begin
if n mod i = 0 then
begin
write(i, ' ') ;
m : = (n div i) ;
end ;
i : = i + 1 ;
end ;
write(n) ;
end.