Взаданном интервале целых натуральных чисел от n до m, найдите число которое имеет наибольшее число делителей. если таких чисел несколько, то вывести нужно наименьшее из этих чисел. в паскале
175
303
Ответы на вопрос:
Var m,n,j,i,c,max,o: integer; begin readln(n,m); for i: = m downto n do begin for j: =1 to i div 2 do if i mod j = 0 then c: =c+1; if c> =max then begin max: =c; o: =i; end; c: =0; end; writeln(o); end.
Популярно: Информатика
-
NastushaJol20.05.2022 15:06
-
ГолубойРо18.11.2020 05:13
-
Ofsi20.07.2021 01:17
-
Alips10.05.2021 21:18
-
vikasivak02p08wjc28.01.2023 20:46
-
nastya273027.01.2021 20:12
-
dawavika02.01.2023 23:10
-
switt1q09.01.2023 11:26
-
odolskij201614.05.2022 01:56
-
oleglebedev9024.04.2021 03:41