Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Leprekon11
09.12.2021 20:27 •
Информатика
Найти все делители натурального числа n
Показать ответ
Ответ:
shuius
23.06.2020 07:40
Uses crt;
var n,i:integer;
begin
readln(n);
for i:=1 to (n div 2) do
if n mod i=0 then writeln(i);
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
DOLTONrus
04.09.2021 21:26
Дан фрагмент электронной таблицы...
гуманитарий0013
17.09.2021 01:48
Код простого калькулятора со знаками деление и умножение...
olesyaandreeva1
30.07.2021 23:23
Напишите программу,которая выводит на экран числа в диапозоне от 1000 до 9999...
Kristing15
18.04.2020 03:03
В программе pascal ABC написать обзац любого стихотворения с НАКЛОННЫМ шрифтом и ЗЕЛЁНЫМ цветом БУКВ. Заранее вам....
angel0000l
30.06.2022 18:04
Мне нужно получить формулу для решения в PythonЗадание: Откройте среду разработки программного обеспечения IDLE и создайте новый файл Python. Разработайте программу, для...
нануша456
23.06.2021 20:44
Известно, что изображение содержит 600 пикселей по горизонтали и 400-по вертикали. Значит ли это, что при отображении на разных устройствах оно будет иметь одинаковые физические...
камиииии76666666666
16.01.2022 07:33
На рисунке представлены многократно увеличенное изображение жидкокристаллического монитора. Сколько пикселей выделено на рисунке в белой рамке....
vipmopmop
28.09.2020 11:11
На листе написать программы (приготовиться 25.02 сдать): 1. Вычислить сумму трех произвольных чисел, вывести результат в виде числового равенства (например, 5+3+1=9, -2+2-1=-1,...
shopiakprod
14.07.2022 21:20
Написать программу которая находит сумму чисел то 1 до 1000 и выводит на экран результаткумир...
Anjica
02.01.2020 02:51
Найти сумму нечетных чисел от 1 до 30 кумир...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i:integer;
begin
readln(n);
for i:=1 to (n div 2) do
if n mod i=0 then writeln(i);
writeln(n);
end.