Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
tolkov05
04.10.2020 10:13 •
Информатика
Найти все делители натурального числа n
Ответ:
020910
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 оценок)
Популярные вопросы: Информатика
Alinakis180902
07.03.2023 02:15
Определите, что будет напечатано в результате работы следующего фрагмента программы: алг нач вещ k,s s=0 k=0 нц пока s 100 s=s+k k=k+4 кц вывод k кон...
dashkevich672
28.06.2020 02:20
Почему в древней греции не образовалось государство?...
актан9ша
28.06.2020 02:20
ответьте на вопросы. 9. чем отличается наследование соматических и генеративных мутаций? в чем заключается их биологическое значение для отдельного организма и вида в целом?...
aselb84
28.06.2020 02:20
Написать сочинение на тему: вам когда- нибудь хотелось петь и смеяться,потому что вам хорошо? напишите об этом...
Vceohenploxo
28.06.2020 02:20
Оброзовать слово с суффикса к слову гриб...
Аня20181
28.06.2020 02:20
Очем заставляет задуматься повесть пушкина станционный смотритель...
Димасик2017
28.06.2020 02:20
Составь и запиши текст по данному названию и ключевым сочетаниям. зимний вечер. рано вечереет,холодный ветер, запорошил все вокруг,узкая полоска света, в сторожке лесника,хлопотливая...
mrdilik
28.06.2020 02:20
Заполнить пропуски цифрами: 1.заполнить пропуски цифрами: 8 кбайт = байт = бит кбайт = байт = 24576 бит кбайт = байт = 215 бит гбайт = 2560 мбайт = кбайт...
Машенька7878
28.06.2020 02:20
10 предложений что такое сера, где её добывают и как она выглядит...
aiis171
28.06.2020 02:20
Запятая в сложном предложении и её роль...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.