Составить программу для проверки утверждения: "результат вычислений по формуле x^2+x+41, при 0< =x< =40 являются простые числа ". все результаты вывести на экран

120

359

Посмотреть ответы 2

Ответы на вопрос:

dimonlanko

Информатика

4,8(60 оценок)

Dim x as integer, y as integer dim f as integer, p as integer cls for x = 0 to 40 y = x * x + x + 41 if y mod 2 = 0 then f = -1 else f = 0 p = 3 do while f = 0 and p * p < = y if y mod p = 0 then f = -1 else f = 0 p = p + 2 loop if f = 0 then print "x="; x, "y="; y, "is prime" else print "x="; x, "y="; y, "not prime" end if next x end обнаружился странный эффект qbasic. последовательность команд: y: =x^2+x+41 для x=40 присваивает у значение 1681. для p=41 значение p^2 также равно 1681, но значение выражения p^2< =y при этом оказывается ложным, хотя p^2 в этом случае должно быть равно у. в связи с этой странностью вместо х^2 использовано х*х, а вместо p^2 использовано р*р. результат выполнения программы: x= 0 y= 41 is prime x= 1 y= 43 is prime x= 2 y= 47 is prime x= 3 y= 53 is prime x= 4 y= 61 is prime x= 5 y= 71 is prime x= 6 y= 83 is prime x= 7 y= 97 is prime x= 8 y= 113 is prime x= 9 y= 131 is prime x= 10 y= 151 is prime x= 11 y= 173 is prime x= 12 y= 197 is prime x= 13 y= 223 is prime x= 14 y= 251 is prime x= 15 y= 281 is prime x= 16 y= 313 is prime x= 17 y= 347 is prime x= 18 y= 383 is prime x= 19 y= 421 is prime x= 20 y= 461 is prime x= 21 y= 503 is prime x= 22 y= 547 is prime x= 23 y= 593 is prime x= 24 y= 641 is prime x= 25 y= 691 is prime x= 26 y= 743 is prime x= 27 y= 797 is prime x= 28 y= 853 is prime x= 29 y= 911 is prime x= 30 y= 971 is prime x= 31 y= 1033 is prime x= 32 y= 1097 is prime x= 33 y= 1163 is prime x= 34 y= 1231 is prime x= 35 y= 1301 is prime x= 36 y= 1373 is prime x= 37 y= 1447 is prime x= 38 y= 1523 is prime x= 39 y= 1601 is prime x= 40 y= 1681 not prime