Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Anneli1
20.11.2022 11:11 •
Информатика
Найти все делители натурального числа n
Показать ответ
Ответ:
Znoke99
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 оценок)
Популярные вопросы: Информатика
matfeys
21.12.2020 14:57
5. В ячейке H10 записана формула =C$5*F5. Ее скопировали в ячейку F7. Какой вид будет иметь формула в ячейке F7?...
ALPELGOLD
06.06.2020 14:54
Який варіант є правильно організованим гіперпосиланням?a img = page1.html a href = page1.html img href = page.html a src = page1.html ...
olya341
17.05.2022 18:20
очень ОЧЕНЬ ОЧЕНЬ Контрольная работа по теме «Обработка графической информации»Вариант 21. К устройствам вывода графической информации относятся:а) принтерб) мониторв)...
eltinua
29.04.2022 19:44
Каким видом спорта развлекались атланты?конскими скачками,марафонским бегом,метанием диска,метанием копья....
kosikoffpasha
31.08.2021 18:08
2. Вычислите.a) 21: b) (0,1); c) (5,211)2: ) (23) : 0) (59)...
milanaphenix
01.04.2020 06:21
ВЫЧИСЛИТЕ ДАВЛЕНИЕ НА ПОЛ, КОТОРОЕ ВЫ СОЗДАЁТЕ СИДЯ НА СТУЛЕ. МАССУ СТУЛА СЧИТАТЬ РАВНОЙ 5 КГ.(МОЯ МАССА 50) УЗНАЙТЕ СВОЮ МАССУ...
vprivat1604
30.03.2023 11:34
Прочитай заголовок текста. Предположи, о чём будет текст. Прочитай. Подтвердились твои предположения? ...
Murew
29.06.2022 01:33
ть треба розвязати один ...
Жыгаа
05.03.2023 12:45
Есть тут знатоки С Написать программу с++, что находит в двухмерном массиве размерностью 4*3, сумму элементов 3 строки 2. Написать программу с++ для нахождения суммы...
usurge
15.10.2022 15:04
❗ ❗ Причины сохранения раздробленности Германии (причины, исторические факты).(на українській)Причини збереження роздробленості Німеччини (причини,історичні факти)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.