Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
MsMerenberg86
20.09.2019 21:01 •
Информатика
Паскаль. на вход программе подаётся натуральное число n< =1000. выведите количество делителей числа n, включая 1 и само число n. ( )
Показать ответ
Ответ:
саша10041
08.10.2020 05:29
Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
0,0
(0 оценок)
Ответ:
staritsckymax
30.10.2020 01:28
// PascalABC.NET 3.3
begin
var a:=ReadInteger;
writeln(Range(1,a).Where(x->a mod x=0).Count);
end.
Пример:
12
6
0,0
(0 оценок)
Популярные вопросы: Информатика
FenteziV
18.01.2021 16:47
Решите задачу по информатике ...
викся1231
18.01.2021 16:46
Мәліметтер қоры мен жұмыс жасағанда сұраныстардың колданылуы мен каншалыкты манызды...
zill81
25.09.2020 07:50
Какие действия с информацией совершает человек в процессе компьютерной игры?...
Онегин1337
25.09.2020 07:54
Вопросы ответье: 1.как ты понимаешь термин файл ?2.Из каких частей систоит полное имя файла? Какие действия можно выполнить с файлами?!...
allihen
03.07.2019 14:10
Написать какими профессиями компьютер владеет !...
dggkfuh
03.07.2019 14:00
Запишите в развернутом виде числа: 200710, 2348, 101102 ....
Cgdhksfggsfjkddf
03.07.2019 14:00
Чем были обусловлены информационные революции?...
ЗагрединоваЖанель09
03.07.2019 14:00
Решить : 1. для хранения растрового изображения размером 64х64 пикселя отвели 512 байтов памяти. каково макс. возможное число цветов в палитре изображения? 2. скорость передачи данных...
hanter13
03.07.2019 14:00
Какую роль в информационной деятельности человека выполняют органы чувств...
sataevaelsa
03.07.2019 13:50
Укажите жизненные ситуации, в которых осуществляется: а) получение информации: 1) ученик слушает объяснения учителя. 2) пяти класс ник заполняет календарь погоды. 3) папа слушает...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
begin
var a:=ReadInteger;
writeln(Range(1,a).Where(x->a mod x=0).Count);
end.
Пример:
12
6