Прошу составить программу на Паскале

[регинчик]

Прошу составить программу на Паскале

записатьь в файл последовательного доступа N произвольных натуральных чисел.. переписать в др файл последовательного доступа те элементы, которые кратны k . вывести полученный файл на печать.

 

[Vladimir_S]

Кто бы мне объяснил, что в данном случае подразумевается под "файлом последовательного доступа". Честно говоря, раньше с этим термином не сталкивался. В Сети почитал про них, да так и не понял, чем они от обычных отличаются. По-моему, в Паскале других и не бывает. Или нет?

 

[AlexZir]

Есть еще с произвольным доступом, где можно обращаться к элементу файла, указав смещение, но это редко кем и когда используется )

 

[Vladimir_S]

Есть еще с произвольным доступом, где можно обращаться к элементу файла, указав смещение, но это редко кем и когда используется )

Понятно. И студней дурют, и нас заодно. Бедные мы, бедные...

 

[fagot86]

Не всё так плохо. Есть идея:

uses crt;
const n=50;k=7;
var f1,f2:file of integer;
    i,c1:integer;

begin
     assign (f1,'old.dat');
     assign (f2,'new.dat');
     rewrite(f1);
     rewrite(f2);
    
     randomize;
     for i:=1 to n do
       begin
         c1:=random(50);
         write(f1,c1);
         write(c1,' ');
       end;
     writeln;close(f1);reset(f1);

     while not eof(f1) do
        begin
             read(f1,c1);
             if ((c1 mod k)=0)and((c1<>0))
                then write(f2,c1);
        end;
     writeln;close(f2);reset(f2);
        
     while not eof(f2) do
        begin
             read(f2,c1);
             write(c1,' ');
        end;
        
     close(f2);
     close(f1);

end.