logo
Войти Регистрация Спроси ai-bota


Masha11781
15.04.2021 05:31

Паскаль. на вход программе подаётся натуральное число n< =1000. выведите количество делителей числа n, включая 1 и само число n. ( )

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
НИКвсе
НИКвсе
08.11.2020 15:26
34 составить и вывести на экран все возможные последовательности из чисел 1,2,3,4,5. числа не могут повторяться. можно писать на любом существующем языке, необходимо...
Лизка250515
Лизка250515
17.03.2022 20:34
Процесс обработки данных, исключающий не нужные данные ответ:...
Софамимими
Софамимими
14.07.2020 20:11
Задача на Паскале: Дан фрагмент программы (все переменные – integer): z:=0; u:=x; repeat z:=z+y; u:=u-1 until u=0; Выполните этот фрагмент с заданными x=10, y=8....
MAKAROSHKA1337
MAKAROSHKA1337
12.09.2022 03:14
Тіл алфавиті. синтаксис Оқулықтың 77-80 беттер аралығын түсіне оқып, 80 беттегі Ойлануға берілген сұрақтарға жауап береміз. дәптерге орындап, суретке түсіріп жібереміз!...
1232959
1232959
03.01.2021 10:12
Здравствуйте решить задачу по алгоритмике (цифровое ГТО , задача №19) . Необходимо создать алгоритм который пройдет путь из одной точки в другую за 13 шагов. Добавляю...
Мальвина1111112
Мальвина1111112
25.04.2021 19:23
All about me ... QANTAS1 Something which terrifies / terrifying me2 Something which I m worried/worry about3 The most horrifying/horrified thing that i ve seenor...
JoiLok
JoiLok
06.10.2020 19:29
X = 45 // 4 % (3 + 2) ** 4 + 25//6 print(x)...
KRASAVKA555
KRASAVKA555
09.08.2020 17:20
Listening Task. Listen to the recording twice and answer the questions. Write NO MORE THAN THREE WORDS or A NUMBER. CD3. Tapescript 3.OR Go to this link to listen...
oxle
oxle
07.07.2020 05:47
Написать программу, которая суммирует 12 любых чисел (вводит пользователь или генератор случайных чисел). Использовать цикл for. Переменных не более 5 шт. и использовать...
alin42
alin42
12.10.2020 03:27
очень надо. 8 класс, Информатика. 4 ВАРИАНТ...
Ответ:
CERN
08.10.2020 05:38
// 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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота