помогите пожалуйста с программкой((...
дано натуральное число n. Записать в файл g целые числа b1-ое,...,bn-ое, где при i=1,2,...,n значение bi-тое равно i(во второй)..
заранее благодарна
нуждаюсь в помощи (pascal)...
в ней вот что-то не работает((..если кто-то может исправьте пожалуйста
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.
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.