Помогите с описанием программы; Оч надо!, Задача на решето эратосфена;/////////////// Опции

[Roofless]

Пожалуйсто напишите пояснения к (почти) каждой строчке; мне очень срочно нужно с ней разобраться.

Program resheto;
Const
  n=500;
type
   erat = array[0..n] of boolean;
Var
  j,i,k:integer;
  b: erat;
Begin
read(j);  
for i:=2 to j do b[i]:=true; {??????????}
  i:=2;               {??????????}
  repeat            {??????????}
    k:=i;              {??????????}
    repeat           {??????????}
      i:=i+k;         {??????????}
      b[i]:=false;    {??????????}
    until i>j;           {??????????}
    i:=k+1;             {??????????}
  until i>j;              {??????????}
for i:=2 to j do        {??????????}
      if b[i]=true then write(i,' ');       {??????????}
    readln;                     {??????????}
  readln;                       {??????????}
end;                          {??????????}

Заранее огромное спасибо!

[andriano]

А что такое Решето Эратосфена ты вообще знаешь?

[Roofless]

Да, я знаю что такое решето эратосфена.

[andriano]

Ну вот - опиши, тогда только останется всего лишь расставить фрагменты твоего описания по соответствующим строкам кода.

[asu2006]

Сначало изучи паскал а потом все поймешь

!

Да что ж тебе так неймется, чтоб забанили. Уже дождись, и так забанят. Ты учти, кнопочка "удалить" очень удобная, нам работы - удалять твой флуд - не много.

Сообщение отредактировано: Michael_Rybak - 16.12.2007 21:42

[Roofless]

мне нужно понять что делает программа! За что отвечает for и until в ней

[Roofless]

Что никто не поможет?[size=4]

[brahma]

За что отвечает for и until в ней

Если операторы циклов не знаешь, то открой любой учебник по паскалю или в гугле ищи.

[Roofless]

спасибо