Задача с исп. цикла, где-то ошибка... Опции

[Танкистка]

Составить программу для проверки утверждения: « Результатами вычислений по формуле (x*х) + x + 49 при 0<=x<= 40 являются простые числа». Все результаты вывести на экран.

Program Proverka;
Var x,p,r,d:integer;
begin
writeln('Resyltatom vichislenii po formule x*x+x+49');
writeln('pri 0<=x<=40');
writeln('yavlyaetsya prostoe chislo');
for x:=0 to 40 do
p:=(x*x)+x+49;
d:=2;
repeat r:=p mod d;
if r<>0 then d:=d+1;
until r=0;
if d=p then writeln('ytver*denie verno')
else writeln('ytverjdenie ne verno');
readln;
end.

Проблема в том, что в мой цикл входит тока первое действие, а мне надо чтобы всё, но если сделать всё, то неск раз выведутся сообщения. Короче, видимо как-то надо поменять проверку на простоту.... вообщем, плиз, подумайте, любые предложения принимаюся....

М

Используй теги! Lapp

Сообщение отредактировано: lapp - 25.11.2006 14:50

[мисс_граффити]

ну смотри.
допустим, у тебя есть число 20. его можно представить так: (идем по порядку):
2*10
4*5
5*4
10*2
как видишь, каждое выражение встречается 2 раза.
значит, нам достаточно изучить только половину. ясное дело, что середина - это корень из 20. один множитель всегда будет больше или равен, а другой меньше или равен.
но корень - не всегда целое число. А граница цикла - обязательно целое... Поэтому нам приходится округлять.