Т.к. abc(x) = a*x^2+b*x+c, то нужно найти такие x, чтобы x^3 > 21 и x^2 <= 21. при x=2: x^2 = 4, x^3 = 8 - не подходит при x=3: x^2 = 9, x^3 = 27 - подходит при x=4: x^2 = 16, x^3 = 64 - подходит при x=5: x^2=25, x^3 = 125 = не подходит ответ: 3, 4
Var a,b,d,K,kp:integer; P:boolean; Begin kp:=0; ReadLn(a,b); if (a = 1)or(a = 2) then Begin kp:=2; Write(2,' ',3) end else if a = 3 then Begin kp:=1; Write(3); End; if a < 5 then a:=5 else if a mod 2 = 0 then a:=a+1; While a<=b do Begin K:=Trunc(Sqrt(A)); d:=3; P:=true; While d <= K do Begin if A mod d = 0 then P:=false; d:=d+2 End; if P then Begin kp:=kp+1; Write(' ',a); End; a:=a+2 End; if kp = 0 then Write(0) End.
Это одно из свойств алгоритмов: Дискретность – процесс решения задачи должен быть разбит на последовательность отдельных шагов. Понятность. Алгоритм должен быть понятен исполнителю и исполнитель должен быть в состоянии выполнить его команды. Определенность. Алгоритм не должен содержать команды, смысл которой может восприниматься неоднозначно. Результативность. Процесс решения задачи должен прекратиться за конечное число шагов и при этом должен быть получен ответ задачи. Массовость. По одному алгоритму можно решать однотипные задачи
при x=2: x^2 = 4, x^3 = 8 - не подходит
при x=3: x^2 = 9, x^3 = 27 - подходит
при x=4: x^2 = 16, x^3 = 64 - подходит
при x=5: x^2=25, x^3 = 125 = не подходит
ответ: 3, 4