Будем называть количество делителей числа n его красотой. например, красота числа 12 равна 6. требуется написать программу, которая по числу k (1 ≤ k ≤ 109) найдет число с максимальной красотой, не превышающее k.
284
449
Ответы на вопрос:
Program gt; var k,t,max,i,h,j,l: integer; begin readln(k); max: =0; for i: =1 to k do begin l: =round(sqrt(i)); h: =0; for j: =1 to l do if(i mod j=0)then h: =h+1; h: =2*h; if(l*l=i)then h: =h-1; if(h> max)then begin max: =h; t: =i; end; end; writeln(t); end.
Uses graph; var xc,yc,m,x1,y1: integer; x,y: real; begin xc: =0; initgraph(xc,yc,''); xc: =getmaxx div 2; yc: =getmaxy div 2; m: =yc div 2; line(5,yc,getmaxx-5,yc); line(xc-m,yc+3,xc-m,yc-3); outtextxy(xc-m,yc+10,'-1'); outtextxy(xc+5,yc+10,'0'); line(xc+m,yc+3,xc+m,yc-3); outtextxy(xc+m,yc+10,'1'); line(xc,5,xc,getmaxy-5); line(xc-3,yc-m,xc+3,yc-m); outtextxy(xc-10,yc-m,'1'); line(xc-3,yc+m,xc+3,yc+m); outtextxy(xc-15,yc+m,'-1'); setcolor(12); line(xc-m,yc,xc,yc-m); line(xc,yc-m,xc+m,yc); line(xc+m,yc,xc,yc+m); line(xc,yc+m,xc-m,yc); x: =-4; while x< =4 do begin y: =0.52*x+0.18; x1: =xc+round(x*m); y1: =yc-round(y*m); putpixel(x1,y1,14); x: =x+0.01; end; readln end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Norefer10.03.2022 18:12
-
sofiamytsak25.02.2022 09:27
-
safaannainfinity21.01.2023 08:50
-
Владислава162608.02.2023 14:24
-
bd71118.12.2022 06:15
-
vpuzerov14.04.2023 03:47
-
1dashagun222.03.2023 05:01
-
seregapomogite21.05.2023 09:03
-
kanzmak08.11.2022 03:58
-
Djunisova27.08.2020 14:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.