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

[Танкистка]

Составить программу для проверки утверждения: « Результатами вычислений по формуле (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 18:50