Автор | Сообщение |
|
Отправлено: 01.04.21 21:42. Заголовок: № 25 задание 109 (не совпадает ответ)
Кол-во подходящих чисел (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.
|
|
|
Новых ответов нет
[см. все]
|
|
|
| Администратор
|
Сообщение: 2653
|
|
Отправлено: 01.04.21 22:18. Заголовок: На сайте есть решени..
На сайте есть решения всех 25-х задач. Сверьте свое решение с авторским. Не очень ясно, как вы проверяете, что оба сомножителя простые. Попробуйте проверить сначала на маленьких числах.
|
|
|