Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
koretstanya1
08.11.2021 15:22 •
Информатика
Найти все делители для заданного числа n. паскаль
Показать ответ
Ответ:
yaku06nastyaozq1r7
27.06.2020 01:48
uses crt;
var i,n,m:integer;
begin
read(n);
m:=n;
i:=1;
while i<=m do
begin
if n mod i=0 then
begin
write(i,' ');
m:=(n div i);
end;
i:=i+1;
end;
write(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
рощумникиви
14.05.2021 13:25
Втаблице запросы и количество найденных по ним страниц некоторого сегмента сети интернет. какое количество страниц (в тысячах) будет найдено по запросу класс & парта &...
daniil358
28.12.2022 19:54
По программированию на языке c. в многоэтажном доме n этажей, на каждом этаже по k квартир. почтальону требуется доставить телеграмму в квартиру с номером m. ему найти нужный...
vanyu2312122
17.03.2021 14:15
Python - пользователь вводит время в формате 24 часа . вы должны сказать: сейчас день или ночь...
playerkeks
27.04.2023 02:50
Буду ! дано натуральное трехзначное число. напишите программу, которая определяет: а) есть ли среди цифер данного числа одинаковые;...
dimonnovikov0
21.09.2022 16:30
Задана точка на плоскости с координатами x и y . определить принадлежит ли точка закрашенной области. нужен алгоритм в ворде плз...
absde91
24.11.2022 03:56
Сообщение по теме компьютерное моделирование в медицине ...
veyper1
08.12.2021 05:57
Записати блок схему з розгалуженням і повторенням...
Arinkaah
05.05.2021 14:35
Сделать реферат по информатике на 5-6 страниц в соответствии с критериями форматирования текста и титульного листа. «usb1.1, usb 2.0. перспективы». зачем создавался usb если...
Margoha80029071
20.03.2021 21:22
Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда. если такая температура введена, вывести на...
nastyshanastia1
22.03.2023 16:10
Напишите программы к следующим и постройте к ним блок-схемы., 1. посчитайте, сколько трёхзначных чисел, сумма цифр которых равно 10...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,n,m:integer;
begin
read(n);
m:=n;
i:=1;
while i<=m do
begin
if n mod i=0 then
begin
write(i,' ');
m:=(n div i);
end;
i:=i+1;
end;
write(n);
end.