Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
zarinayespulov
02.04.2023 03:08 •
Информатика
Составьте программу, находящую количество делителей натурального числа n. указание. число х является делителем числа n, если выполняется условие n mod x=0. это паскаль
Показать ответ
Ответ:
LeraAlfeeva15
02.07.2020 22:51
Uses crt;
var
a,b,k:integer;
Begin
read(a);
for b:= 1 to A do
if (a mod b=0) then k:=k+1;
writeln(k);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
lizon392
31.10.2020 00:09
Сколько кбит информации содержит сообщение объёмом 2 в 17 степени байт...
юля2760
31.10.2020 00:09
Pascal даны натуральные числа от n до 87+n. найти и напечатать те из них, которые при делении на 7 остаток 1, 2 или 5. n=5...
SizovaOlay
18.12.2022 06:36
Известна информация о стоимости 1 килограмма двадцати сортов конфет. подготовить лист для получения ответа на вопрос: верно ли, что самые дешевые конфеты стоят меньше...
vladmakarchuk80
27.10.2021 23:23
Xss защита в сети.как ее реализовать...
zhannayachmenev
07.12.2020 05:15
Создайте элемент div так, чтобы существующий тег img оказался между тегами и 20...
Ismira1805
22.09.2022 12:32
Укажите отношение для пары «тверь и город» а)является элементом множества б)является причиной в)является причиной г)входит в состав...
frankinshtein228
23.08.2021 12:10
дайте полные ответы на теоретические вопросы: 1. кто был основателем кибернетики? в каком году вышла первая книга о кибернетике? 2. что такое ? 3. что представляет...
Admer
22.06.2020 23:55
Обеспечение доступа к данным на основе распределения прав доступа a) конфиденциальность b) целостность c) доступность d) спам...
Karinka11119
11.06.2020 19:45
Сколькими можно составить пятибуквенное слово из букв а, б, в, г, е так, чтобы слово оканчивалось на согласую букву...
danyabro1
27.08.2020 21:43
Алынган хабарды кай кезде акпарат деп есептеуге,кай кезде есептемеуге болады?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,b,k:integer;
Begin
read(a);
for b:= 1 to A do
if (a mod b=0) then k:=k+1;
writeln(k);
End.