Занести в файл q те компоненты файла f, которые являются четными

@Robot01 · Регистрация: 23.11.2013

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

Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Занести в файл q те компоненты файла f, которые являются четными.

@Puporev · 05.04.2014, 15:06

Pascal

var f,g:file of integer;
    n,a,i:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a mod 2=0 then write(g,a)
 end;
close(f);
writeln;
reset(g);
if filesize(g)=0  then write('Нет четных чисел')
else
 begin
  writeln('Содержание полученного файла:');
  while not eof(g) do
   begin
    read(g,a);
    write(a,' ');
   end;
 end;
close(g);
end.

@Robot01 0 / 0 / 0 Регистрация: 23.11.2013 Сообщений: 35
		1
	Занести в файл q те компоненты файла f, которые являются четными 05.04.2014, 14:33. Показов 2524. Ответов 1 Метки нет (Все метки) Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Занести в файл q те компоненты файла f, которые являются четными. 0

Опции темы

Занести в файл q те компоненты файла f, которые являются четными

Решение