Получить в файле g все компоненты файла f, делящиеся на 3 и не делящиеся на 7

@Nikita_ · Регистрация: 19.11.2014

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

дан файл f компоненты которого являются целыми числами получить в файле g все компоненты файла f , делящиеся на 3 и не делящиеся на 7. Если напишете программу очень поможете!!!

@Joy · 27.05.2015, 13:47

Pascal

var
  f,g:file of integer;
  i,j:integer;
begin
  randomize;
  write('BBeguTe K-Bo 3anuceu glR co3gaHuR:');readln(i);
  assign(f,'int.dat');
  rewrite(f);
  for i:=1 to i do begin j:=random(1000)-500;write(f,j);end;
  close(f);
  reset(f);
  assign(g,'out_int.dat');
  rewrite(g);
  writeln('File1:');
  while not eof(f) do begin
    read(f,i);
    write(i,' ');
    if (i mod 3=0) and (i mod 7<>0) then write(g,i);
  end;
  writeln;
  close(f);
  close(g);
  reset(g);
  writeln('File2:');
  while not eof(g) do begin
    read(g,i);
    write(i,' ');
  end;
  close(g);
end.

@Nikita_ 0 / 0 / 0 Регистрация: 19.11.2014 Сообщений: 2
		1
	Получить в файле g все компоненты файла f, делящиеся на 3 и не делящиеся на 7 27.05.2015, 12:50. Показов 1430. Ответов 1 Метки нет (Все метки) дан файл f компоненты которого являются целыми числами получить в файле g все компоненты файла f , делящиеся на 3 и не делящиеся на 7. Если напишете программу очень поможете!!! 0

	27.05.2015, 13:47

Получить в файле g все компоненты файла f, делящиеся на 3 и не делящиеся на 7

Решение