Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Pulpy1235
18.04.2022 18:21 •
Информатика
Паскаль! в промежутке от 1 до n вывести все числа, сумма делителей которых(включая 1 и не включая само число) равна самому числу.
Показать ответ
Ответ:
Onoo
17.09.2020 08:21
Var n,i,j,s:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
s:=0;
for j:=1 to i div 2 do
if i mod j = 0 then s:=s+j;
if i=s then write(i,' ');
end;
writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AlexFireStreamGun
26.02.2022 21:28
Муниципальный этап всош по информатике среди 7, 8 классов. 2019-2020 учебный год. , калининградская область, 14.12.2019 b. минимальное число имя входного файла: стандартный...
sanka37rus
26.12.2022 20:54
Кот мурлыка придумал для кукарачи такую . ты находишься в клетке (5, 3). справа, начиная с клетки (5, 4), расположен плотный ряд кубиков с буквами с (серая) неизвестной...
SKIRLES
17.06.2020 08:33
надо написать то, что в таблице...
Вика12342001
27.11.2021 01:43
Как вывести элементы массива в обратном порядке? написать прогу для с++...
morfikk
09.11.2020 11:07
Необходимо подготовить логотип компании для печати в типографии (фирменные бланки). специализация компании — покупка золота. какую цветовую модель необходимо использовать?...
RaNoM
03.01.2021 12:40
Дана таблица и правило условного форматирования. ABсD1고Средняя скорость транспорта км/ч356Вид транспорта скоростьавтобус60ДІНгрузовые70легковые80велосипеды15Мотоциклы45789междуФорматирогать...
leeJLZeel
13.07.2020 13:29
Расставьте в соответствии название рабочего окна программы SketchUp...
dinara240787
04.12.2020 21:53
Задача 2.Переведите:а). 34в10–А 5б). 321в 10–А в7в). 201в10 –Ав3...
Няша200411
11.03.2023 09:00
Текст Б Без общественного транспорта мы не мыслим сегодня своей жизни, хотя почти в каждой семье есть автомобиль, мотоцикл, мопед или велосипед.Общественный транспорт создан...
kudesnik72rusoz03b4
08.06.2020 06:27
Операционные системы MacOS используются преимущественно на компьютерах, выпускаемых фирмой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n=');readln(n);
for i:=1 to n do
begin
s:=0;
for j:=1 to i div 2 do
if i mod j = 0 then s:=s+j;
if i=s then write(i,' ');
end;
writeln;
end.