Технический форум - Помогите с программой

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите с программой (http://www.tehnari.ru/f41/t51113/)

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

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

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

Цитата:

Сообщение от павля (Сообщение 512793)

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

Код:

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: