Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
SashaV2003
10.04.2021 07:29 •
Информатика
Для каждого натурального числа в промежутке [m; n] вывести все делители, кроме единицы и самого числа. m и n вводятся с клавиатуры. выводить в формате число: делители.
Показать ответ
Ответ:
islamsalpagaro
25.08.2020 17:26
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
0,0
(0 оценок)
Популярные вопросы: Информатика
Сабрина185к
30.05.2022 21:17
Как информационные технологии изменили характер труда?...
aleks102102
24.04.2020 20:44
Пример реализации информационных процессов в сетевом и системном администрировании ...
linalimeofficip01ef8
11.02.2023 19:15
Оқушыны қызықтырған кітап 5-сөреде орналасқан деген хабар 3 бит ақпарат болды. Стеллажда қанша сөре бар?...
GB001
02.09.2021 09:07
Сколько значащих нулей содержится в двоичной записи десятичного числа 354...
аня2838
07.05.2023 01:37
Выполните действия с многочленами A B и C полученные многочлены запишите в таблицу 12.3...
sashabulaev21
02.04.2020 11:23
Обчисліть значення виразу 1)0,2•(-4)⁴ 2)3⁴-5³+(-1)⁷...
Vlad15218
18.11.2021 11:46
физика 8 клас олимпиада...
artempryadko2006
24.08.2021 10:27
Найти неизвестные данные :...
vidana3
24.08.2021 10:27
1. Дана функция y=x2. Вычислить значения y, взяв значения x от -4 до 4 через единицу. Решение оформить в виде таблицы. Построить график функции y=x2 по полученным точкам. 2. По...
ghhhhd
01.04.2023 19:13
хэлпsin^4a + 2sin^2 cos^2a + cos^4asin^4a + sin^2a cos^2a - sin^2a...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8