Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ka931
02.06.2022 19:21 •
Другие предметы
Необходимо получить такую натуральную последовательность максимальной длины, у которой каждый текущий элемент, начиная
Показать ответ
Ответ:
milanavornik
16.04.2019 23:00
var n, i: Longint;
begin
Read(n); Write(n);
repeat
for i:=n div 2 downto 1 do
if n mod i=0 then begin
n:=i; Write(' ',n); Break;
end;
until n=1;
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
лисичка23456
15.07.2021 04:24
Русская литература эйдос стихов пушкина Соженное письмо или Узник...
MiaDakota
17.03.2022 00:53
З яких причин однією з головних проблем філософії 20 ст.стала проблема відчуженої від суспільства людини? ...
milkyyyw
22.05.2022 14:45
выбрать один правильный вариант ответа от тому, кто Знание правил снимаемого вида спорта: А) необязательно для фотографа; Б) необходимо, чтобы не ошибиться в подписях...
mary30092004
10.11.2020 14:03
Задача 1. Самолѐт вылетел рейсом из Калининграда во Владивосток 01.10.20 в 22ч00м местного времени и был в полѐте 09ч15м. Найти местную дату и время прибытия самолѐта...
sofiko07161
26.12.2020 21:51
Поставить слова вместо пропусков...
needlife
21.10.2022 21:33
нормальная ли эта палетка теней? Или не стоит брать?...
ghc6
01.06.2020 23:17
олег приобрел автомобиль 2014 года по цене 550 тыс. руб. с мощностью 184 л.с. поставив его на учет 26 февраля. но 19 октября того же года решил продать. рассчитайте...
gshshagag
26.07.2020 06:31
2 вопроса по технологии 7 класс Выберите из списка то, что относится к конструкторской документации? технологическая карта сборочный чертеж чертеж общего вида маршрутная...
TashaDu
26.09.2022 05:59
Написати есе на тему Що таке внутрішнє Я ?. Об єм 1-2 стор....
qhahz
20.12.2022 01:32
Составить кросворд по бадминтону 20 вопросов с ответами...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Read(n); Write(n);
repeat
for i:=n div 2 downto 1 do
if n mod i=0 then begin
n:=i; Write(' ',n); Break;
end;
until n=1;
end.