Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ksyushalion
03.03.2021 11:47 •
Информатика
А) составьте, программу выводящую на экран все делители натурального числа n
Показать ответ
Ответ:
fomax1337
03.10.2020 06:57
Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
45757858ЫфыРф
11.12.2022 10:10
1. Зобразити схематично структуру даних (на схемі показати типи даних, підписати імена змінних, позначити де саме будуть зберігатися значення у контейнері). 2. Розробити...
Аккаунт удален
25.02.2022 05:57
Найди x 8X = 32 кбайтответ:16x бит= 128 кбайт ответ...
Наденька2000
05.01.2021 13:55
Как решить пример ¬(B ̅˅B)˄(¬A|A)...
Deniza06
12.03.2020 03:09
Составьте программу, которая позволяет определить, является ли введенная строка перевертышем, то есть читается одинаково справа налево и слева направо...
dianka0202
12.03.2020 03:09
Что хранится в ячейке оперативной памяти...
Akri2532
12.03.2020 03:09
Паскаль. напишите программу, которая по последней цифре числа определяет последнюю цифру квадрата этого числа...
димас248
25.11.2021 08:54
Как получить растровое и векторное представления всех цифр от 0 до 9 ?...
krivorotovadara
28.11.2021 02:44
Var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 16; dat[2] : = 20; dat[3] : = 20; dat[4] : = 41; dat[5] : = 14; dat[6] : = 21; dat[7] : = 28; dat[8]...
sun54
01.10.2021 14:50
Василий составляет 4х буквенные коды из бук В, Е, Д, Р, О. Каждую букву можно использовать любое кол-во раз, при этом код не может начинаться с буквы Д и должен содержать...
Ḱặрặṃềӆьҟӑ
26.11.2022 08:44
Составить программу в Python определить сколько единиц в данном числе, напомним, что еденица - это послелняя цифра в числе ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.