Записать в файл последовательного доступа N произвольных натуральных чисел

@Влад12345 · Регистрация: 25.10.2013

Author24 — интернет-сервис помощи студентам

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

@Jener · 18.01.2014, 17:42

Pascal

uses crt;
var f, f1 : file of byte;
    N, i, a, k : byte;
begin 
  clrscr;
  assign(f,'f.dat');
  assign(f1,'f1.dat');
  rewrite(f);
  write('N = '); readln(N);
  randomize;
  for i := 1 to n do write(f,random(50));
  reset(f);
  write('k = '); readln(k);
  rewrite(f1);
  writeln('Исходный файл ');
  while not eof(f) do begin
    read(f,a);
    if a mod k = 0 then write(f1,a);
    write(a:4);
  end;
  writeln;
  writeln('Файл с числами кратными ',k,' ');
  reset(f1);
  while not eof(f1) do begin
    read(f1,a);
    write(a:4);
  end;
  readln;
end.

@Влад12345 · 20.01.2014, 12:36 **[ТС]**

спасибо большое

Добавлено через 32 секунды
Торович, спасибо можешь ещё 2 программы написать

@ermolay · 20.01.2014, 12:40

Комментарий модератора

Влад12345, для каждой задачи создавайте отдельную тему, Читайте правила форума

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31
		1
	Записать в файл последовательного доступа N произвольных натуральных чисел 18.01.2014, 15:46. Показов 3391. Ответов 3 Метки нет (Все метки) Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны К. Вывести полученный файл на печать. 0

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31
	20.01.2014, 12:36 [ТС]	3
	спасибо большое Добавлено через 32 секунды Торович, спасибо можешь ещё 2 программы написать 0