Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
НюшаS12
21.11.2022 08:18 •
Информатика
Найти все делители для заданного числа n. паскаль
Показать ответ
Ответ:
yuri520
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 оценок)
Популярные вопросы: Информатика
67889055
01.02.2023 00:53
Запиши развёрнутую запись числа 0,154 для дробной части числа....
Анамтасия727
28.03.2023 07:12
Нужно написать программу в паскале. : введите возраст человека от 1 до 150 и выведите его вместе со словом год , года ,лет ....
artem705
09.05.2021 13:28
Переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления.а) 279; б) 781; в) 841; г) 508....
milankagl
22.04.2021 20:56
Примеры 187 м 18 см * 3 279 м 72 см : 37 124 км 50 м : 5 3742 га 37 а : 59 !...
16oce1
05.01.2020 17:14
Допишите уравнения реакций и расставьте коэффициенты : zn+o2= cucl2+koh= fe(oh)3= mg+hcl=...
dangoreh
05.01.2020 17:14
Уравнения: 90: х-17=13 85-х*5=60 дайте развернутое решение, ....
Mariya1616161
05.01.2020 17:14
Какие преимущества и недостатки угля, нефти и природного газа как вид топлива?...
lada48
05.01.2020 17:14
Как изменится стробоскопическая фотография шарика,который падает если а)увеличить частоту вспышек; б)увеличить продолжительность вспышек?...
2837637352728
05.01.2020 17:14
Разобрать по составу слово уважать? от какого слова произошло слово уважать?...
yurasokolov232
05.01.2020 17:14
Программа с. ю. витте предполагала: 1) увеличение косвенных налогов 2) ограничение подушной подати 3) проведение денежной реформы 4) разрушение крестьянской общины 5) увеличение таможенных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.