Пробел через каждые 2 числа

[KillJoy]

Всем привет! Задача такая- дан файл с числами. Нужно через каждые 2 числа поставить пробел. Как это сделать?

[_-Re@l-_]

Т.е. поставить дополнительный пробел?Ну наверно так:

Var
     F,Q:Text;
     n,x:Integer;
Begin
        Assign(F,'input.txt');
        Reset(F);
        Assign(Q,'output.txt');
        Rewrite(Q);
        N:=0;
        While Not Eof(F) Do
        Begin
                Read(F,X);
                Inc(N);
                Write(Q,X);
                If N mod 2 = 0 Then Write(Q,' ');
        End;
        Close(F);
        Close(Q);
End.

P.S. Не проверял...

[KillJoy]

И еще вопрос: дано число 1<=n<=100. Найдите произведение всех простых чисел по модулю 23.

[ArtGrek]

по модулю 23.

...........ет как?

[_-Re@l-_]

И еще вопрос: дано число 1<=n<=100. Найдите произведение всех простых чисел по модулю 23.

Быть может, по модулю меньше чем 23? Но тогда зачем n?

[KillJoy]

Найдите произведение всех простых чисел, заключенных между числами 1 и 1000, по модулю 23. (Не знаю, вот и спрашиваю)

[ArtGrek]

вспомнил!
1 mod 23 - ето остаток от деления на 23,

var 
i: integer;
a: integer;

begin
 a:=1;
 for i:= 1 to 1000 do
  a:=a*(i mod 23);
end;

1<=n<=100.

а зачем здес n я тоже не понял)))

[ArtGrek]

begin
 a:=1;
 for i:= 1 to 1000 do
  a:=a*(i mod 23);
end;

будет равно всегда 0, видимо я что то в задании неверно понял