Файл: Получить в другом файле все компоненты файла f, кроме тех, которые кратны К

@камитоль · Регистрация: 24.03.2016

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

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

@Arigato · 25.03.2016, 01:16

Pascal

const
  n=10;
  k=5;
var
  f,g: text;
  i,a: integer;
begin
  assign(f,'f.txt');
  rewrite(f);
  assign(g,'g.txt');
  rewrite(g);
  randomize;
  for i:=1 to n do begin
    a:=random(9999)+1;
    writeln(f,a);
    if a mod k>0 then begin
      writeln(g,a);
      writeln(a);
    end;
  end;
  close(g);
  close(f);
end.

@камитоль 0 / 0 / 0 Регистрация: 24.03.2016 Сообщений: 11
		1
	Файл: Получить в другом файле все компоненты файла f, кроме тех, которые кратны К 24.03.2016, 22:58. Показов 1702. Ответов 1 Метки нет (Все метки) записать файл f последовательно доступа N натуральных чисел . получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны К. вывести полученный файл на экран 0

	25.03.2016, 01:16

Файл: Получить в другом файле все компоненты файла f, кроме тех, которые кратны К

Решение