Записать в файл все нечетные числа из [1; 99]. Затем вывести все элементы данного файла, начиная с 15

@nikita6543 · Регистрация: 12.06.2012

@AlexandrMer · 13.06.2012, 11:46

Pascal

Var
 f:file of integer;
 i:integer;
 
begin
  AssignFile(f,'file.dat');
  Rewrite(f);
 
  For i:=1 to 99 do
   If odd(i)
    Then
     Write(f,i);
 
  Seek(f,7);
  While not eof(f) do
   Begin
    Read(f,i);
    Writeln(i:3);
   End;
  Readln;
 
  CloseFile(f);
 
end.

@nikita6543 0 / 0 / 0 Регистрация: 12.06.2012 Сообщений: 14
		1
	Записать в файл все нечетные числа из [1; 99]. Затем вывести все элементы данного файла, начиная с 15 13.06.2012, 00:53. Показов 1454. Ответов 1 Метки нет (Все метки) Записать в файл все нечетные числа из [1; 99]. Затем вывести все элементы данного файла, начиная с 15 0

Опции темы

Записать в файл все нечетные числа из [1; 99]. Затем вывести все элементы данного файла, начиная с 15

Решение