Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
po4emy228
11.07.2021 19:16 •
Информатика
Составьте программу получения в порядке убывания всех делителей данного числа n. число n вводится с клавиатуры. .
Показать ответ
Ответ:
лера2083
06.10.2020 04:23
Var n,i:integer;
begin
write('n = ');
readln(n);
writeln('Делители числа ',n,':');
for i:=n div 2 downto 1 do
if n mod i=0 then write(i,' ');
end.
Пример:
n = 24
Делители числа 24:
12 8 6 4 3 2 1
0,0
(0 оценок)
Популярные вопросы: Информатика
JANNETA2010
17.02.2023 12:41
Выполнить блок схему, программу. Использую правила, записать арифметическое выражение на языке бейсик....
11martandreyp0bwg2
24.06.2022 10:25
у меня БСО!(( ЧТО НУЖНО ВЫБРАТЬ ПОСЛЕ ЩЕЛЧКА ПРАВОЙ КНОПКОЙ МЫШИ,ЧТОБЫ СОЗДАТЬ ПАПКУ??? a)new folder b)new save c)new copy d)file open...
timatima3
24.04.2022 06:17
Информатика чем сможете...
Лубенцовасоня
13.07.2020 19:10
1)разработать схему алгоритма ,который запрашивает ввод целого числа в переменную в и выводит это число на экран.отладить алгоритм и проверить правильность его...
nastyap20032
20.05.2023 10:05
Заполнить массив из 5 элементов случайными числами из интервала от -15 до 15, вывести на экран, а затем увеличить каждый элемент в два раза и повторно вывести на...
xalmatovr
25.12.2021 21:40
Перевести число 2019 из двоичной системы счисления в 16 систему счсиления...
annavatolina20
28.01.2020 00:42
Есть 2 произвольных треугольника с известной площадью. так же дан квадрат, его площадь известна. можно ли вложить эти треугольники внутрь квадрата так чтобы они...
отличница54575
20.06.2021 07:58
Сообщение объёмом 1,5 Кбайт содержит 3072 символа. Сколькими битами кодируется один символ? Какова мощность алфавита, при которого было написано это сообщение....
kontik20033002
28.08.2022 06:48
Таблица - Вопросы ниже :...
EdgyHuman
03.09.2020 13:46
Мальчики ,утомлённые долгим путём шли молча разбор под цифрой. 4...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n = ');
readln(n);
writeln('Делители числа ',n,':');
for i:=n div 2 downto 1 do
if n mod i=0 then write(i,' ');
end.
Пример:
n = 24
Делители числа 24:
12 8 6 4 3 2 1