Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
moldirkurmanbek
14.03.2022 04:01 •
Информатика
Паскаль: среди всех делителей числа н найти те сумма цифр которых кратна трем
Показать ответ
Ответ:
Vinokurov03
07.08.2020 23:32
Var n,x:integer;
begin
read(n);
if n mod 3 = 0 then
begin
n := n div 3;
for x := 1 to n do
if n mod x = 0 then
write(3*x,' ')
end
else
write('Not found')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Den910
12.01.2023 20:10
Производится бросание симметричной четырехгранной пирамидки. какое количество информации мы получаем в зрительном сообщении о ее падении на одну из граней? а) 1бит,...
Женя8а
10.08.2022 17:21
Расщифруйте этот код и если не трудно этот тоже: 31.34.31.31...
Uljainaabilkasim
13.05.2020 03:05
5. В первый день собрали 2255 кг картофеля. Во второй день — на 314 кг больше, чем в первый. В третий день – на 115 кг меньше, чем во второй. Сколько килограммов карто-...
5675431
27.03.2023 23:25
Тапсырма 3 Суретте иіндікке орналастырылған жүктер мен жүк тарапынан асер етуші күштердің,иіндерінің мәні берілген. Әр нұсқадағы иіндіктің тепе теңдікте болатынын немесе...
artursaripov851
14.03.2020 06:51
Розберіть речення за членами речення :Який мені вітер у серці повіяв?...
NoName2345
14.11.2020 05:39
1.Определите и запишите основную мысль текста.(1)Необъятная Россия…(2)А между тем, прогресс часто лишает нас возможности любоваться красотой, необозримостью и беспредельностью...
Reek5657
13.09.2022 10:04
-5тапсырма.Мәтінді оқы. Жаңа сөздерді тауып, қандай сөздермен тіркесіп тұрғанынанықта. Мағынасын түсіндір.Үлгі: басқа сабақтарға дұрыс көңіл бөлмеген, басқа сабақтарды...
amalia454565
19.11.2021 13:14
Число увеличили на 77, и оно составило дробь, числитель — 10, знаменатель — 3 от исходного числа. Найдите исходное число....
Анна230801
08.07.2020 07:35
5-тапсырма. «Асыл сөз» тақырыбында бүгінгі қоғамдағы тілмәселесі жайында шығарма жазыңдар....
hamkarmik225
31.08.2022 15:06
Твір на тему Чому потрібно вивчати іноземну мову...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(n);
if n mod 3 = 0 then
begin
n := n div 3;
for x := 1 to n do
if n mod x = 0 then
write(3*x,' ')
end
else
write('Not found')
end.