Циклы на Паскале.

[vlad1991]

program №1;/на цикл while/
var y,n,x:integer;
begin
writeln('Vvedite n');
readln(n);
if ndiv2=0 then
i:=1;
y:=1
else i:=2
y:=2;
while ndiv2=0 do
begin
y:=y*x;
x:=i+2;
while ndiv2<>0 do
y:=y*x;
x:=i+x;
end;
writeln('y=',y);
readln
end.

Почему не работает эта прога???=((((

[s.Creator]

загляни в свой пост http://programmersforum.ru/showthread.php?t=27285

[puporev]

Ааааааа, так это ожно и то же=)))

Нет это не одно и тоже.
Если в цикле r:=r+x, то будет x,2x,3x...nx, а если r:=x*i, то будет x, x^2,x^3...x^n

[vlad1991]

Помогите 2 сделать пжл задачу!!!Я просто не понимаю ее вообще=(

[puporev]

uses crt;
var i,j,k:integer;
begin
clrscr;
for i:=10 to 99 do //двухзначные числа
   begin
     k:=0;
     for j:=2 to round(sqrt(i)) do//от 2 до корня из числа
     if i mod j=0 then k:=k+1; //если делится на какое-то число, считаем
     if k=0 then writeln(i); //если делителей нет, простое, выводим
   end;
readln
end.

[vlad1991]

Большое тебе спасибо!!!!

[vlad1991]

Пупорев!Если тебе не сложно мог бы объяснить вот эту чать
begin
k:=0;
for j:=2 to round(sqrt(i)) do
if i mod j=0 then k:=k+1;
if k=0 then writeln(i)

Просто мне надо понять пример иначе, я так не пойму, а умя контроша скоро!

[puporev]

Так я же в комментариях написал. В цикле проверяем все числа от 10 до 99. берем число 10 и проверяем делится ли оно нацело на 2, 3. Делится на 2, пропускаем. Берем 11, проверяем на 2,3. Не делится, выводим и так до конца. Например 67 проверяем на 2, 3,4,5,6,7,8 - не делится, выводим.
Больше 8 нет смысла проверять. Вообще-то надо только нечетные проверять, но ты и так путаешься.
Вместо строчек

for j:=2 to round(sqrt(i)) do//от 2 до корня из числа
if i mod j=0 then k:=k+1; //если делится на какое-то число, считаем

Надо написать

for j:=3 to round(sqrt(i)) do//от 3 до корня из числа
if odd(i) and(i mod j=0) then k:=k+1; //если нечетное и делится на какое-то число, считаем

[vlad1991]

round(sqrt(i))-это что?Операция round что дает?

[puporev]

round -округляет вещественное число до целого. Когда извлекаем корень (sqrt), получается вещественное, а считать можно только целые.
Вообще как-то бы книжку почитать. Вот ты пишешь вопрос на форум, а тебя Паскаль есть, а там Help. Нажимаешь, ищешь Round и там все написано.