По информатике ! в диапазонк от а до в ( а и в с клавиатуры ) найти количество чисед , у которых заданное колличество делителей. паскаль
272
310
Ответы на вопрос:
Pascalabc.net 3.4.2, сборка 1884 от 24.11.2018 внимание! если программа не работает, обновите версию!
function числоделителей(self: integer): integer;
extensionmethod;
begin
result : = 2; // на себя и на 1 число всегда делится
for var i : = 2 to self div 2 do
if self mod i = 0 then inc(result)
end;
begin
var (нижняяграпница, верхняяграница) : =
readinteger2('укажите границы диапазона: ');
var требуетсяделителей : =
readinteger('укажите количество делителей: ');
range(нижняяграпница, верхняяграница)
.where(t -> t.числоделителей = требуетсяделителей).count.print
end.
пример укажите границы диапазона: 35 210 укажите количество делителей: 10 6
Огородники ивановы засаживают свой огород только по клумбам главной диагонали. сам огород представляет собой квадрат со стороной в 5 клумб. найдите сколько арбузов вырастет на главной диагонали(число арбузов на каждой клумбе задаётся случайно). var ar: array[1..5,1..5] of integer; a,s: integer; begin randomize; writeln('арбузы погрядочно: '); for a: =1 to 5 do begin; ar[a,a]: =random(30); write(ar[a,a],','); s: =s+ar[a,a]; end; writeln; writeln('количество арбузов: ',s); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
марго39825.07.2020 03:44
-
KarinaKotik1108.02.2023 13:02
-
Angelina535315.05.2021 12:23
-
mariamshakhram19.04.2021 13:15
-
fragerin28.11.2021 22:41
-
zaper88616.03.2021 23:02
-
MrBonNekrasov02.12.2021 00:56
-
Ekaeterina4425.03.2022 04:08
-
Лолик111229.12.2020 13:19
-
dariababaeva129.11.2020 06:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.