Цитата:
Сообщение от павля
требуется составить программу с использованием функций работы с файлами...
дано натуральное 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.