Форум » Обработка целых чисел » № 25_136 » Ответить
№ 25_136
Rep21: В ответах к этой задаче не хватает одной строки 51870 19. [pre2] function prime(x : integer) : boolean; begin prime := false; for var i := 2 to round(sqrt(x)) do if x mod i = 0 then exit; prime := true; end; begin var a : array [ 1..15] of integer; for var x := 25317 to 52137 do begin var c := 0; for var i := 2 to round(sqrt(x)) do if (x mod i = 0) and (prime(i) = true) then begin c += 1; a[ c] := i; end; if c >= 6 then writeln(x,' ', a[ c]); end; end. [/pre2]
Ответов - 2
Поляков: Rep21 пишет: for var x := 25317 to 51237 do begin
Rep21: Спасибо!
полная версия страницы