Регистрация Спросить otvet5GPT
abiersack
28.08.2022 10:38
Информатика
Есть ответ 👍

35 написать программу на языке программирования в паскале: найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна k? (k вводится с клавиатуры)​

117
383
Посмотреть ответы 1

Ответы на вопрос:

ната555555
ната555555
4,4(44 оценок)
{attention! это самое отвратное моё решение на знаниях. запаситесь валерьянкой перед прочтением кода} //pascal abc.net 3.1 сборка 1219 type   ty=record   valu: integer;   count: integer; end; const   n=3;   var   ma: array[1..n,1..n] of integer;   tyar: array of ty;   se: set of integer;   i,j,z,k,maxcount: integer; begin   randomize;   se: =[];   k: =0;   maxcount: =integer.minvalue;   writeln('matrix: ');   for i: =1 to n do   begin     for j: =1 to n do     begin       ma[i,j]: =random(-10,10);       write(ma[i,j]: 4);       if not(ma[i,j] in se) then         begin         inc(k);         setlength(tyar,k+1);         tyar[k].valu: =ma[i,j];         tyar[k].count: =1;         se: =se+[ma[i,j]];       end       else         for z: =1 to k do {o(n^3) в худшем случае - нормальные люди ненавидят это}         if tyar[z].valu=ma[i,j] then           begin           inc(tyar[z].count);           break;           end;     end;     writeln;   end;   for i: =1 to k do   if maxcount< tyar[i].count then maxcount: =tyar[i].count;   writeln('res: ');   for i: =1 to k do  if tyar[i].count=maxcount then writeln(tyar[i].valu); end. пример работы программы: matrix:   -7   -2   10     8   0   -2     6   10   1 res: -2 10

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS