Помогите с программой

[павля]

Помогите с программой

требуется составить программу с использованием функций работы с файлами... :tehnari_ru_325:

дано натуральное n. Записать в файл d целые числа b1,...,bn, где при i=1,2,...,n значение bi равно i(во второй).

 

[Vladimir_S]

требуется составить программу с использованием функций работы с файлами... :tehnari_ru_325:

дано натуральное n. Записать в файл d целые числа b1,...,bn, где при i=1,2,...,n значение bi равно i(во второй).

Ладно уж. Ради праздника.

VAR
 f:TEXT;
 i,j,N:Word;
BEGIN
 Assign(f,'C:\out.txt');
 ReWrite(f);
 Write('N(<256)= ');
 ReadLn(N);
 If N>10 then
  For i:=0 to (N div 10)-1 do
   begin
    For j:=1+i*10 to 10+i*10 do
     Write(f,j*j:6);
    WriteLn(f);
   end;
 For j:=1+(N div 10)*10 to N do
  Write(f,j*j:6);
 WriteLn(f);
 Close(f);
END.

 

[павля]

иии :tehnari_ru_288: пасиб пасиб пасиб...:tehnari_ru_088: