Форум » Обработка целых чисел » № 25 задание 109 (не совпадает ответ) » Ответить
№ 25 задание 109 (не совпадает ответ)
Егор К.: [pre2] Кол-во подходящих чисел (ccnt) в 2 раза больше чем в ответе. Почему? Объясните пожалуйста! var a, b, c, d, e, f, acnt, bcnt, ccnt, min: integer; begin ccnt:= 0; min:= 1000000000; for a:= 173225 to 217437 do begin bcnt:= 0; d:= 1; for b:= 2 to (a div 2) do if (a mod b = 0) then begin acnt:= 0; for c:= 2 to (b div 2) do if (b mod c = 0) then acnt:= acnt + 1; if (acnt = 0) then begin bcnt:= bcnt + 1; d:= b * d; if (bcnt = 1) then e:= b; if (bcnt = 2) then f:= b; if ((f mod 10) = (e mod 10)) and (d = a) then begin ccnt:= ccnt + 1; if (min > a) then min:= a; end; end; end; end; write(ccnt,' ', min) end. [/pre2]
Ответов - 1
Поляков: На сайте есть решения всех 25-х задач. Сверьте свое решение с авторским. Не очень ясно, как вы проверяете, что оба сомножителя простые. Попробуйте проверить сначала на маленьких числах.
полная версия страницы