Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5

@TPABAneHAPKOTUK · Регистрация: 22.01.2014

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

1) Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5.

@CodeR · 26.01.2014, 10:07

Pascal

Var H,M:file of integer;
    i,n:integer;
Begin
    Assign(h,'in.dat');Rewrite(h);
    writeln('Файл H');
    For i:=1 to random(10)+20 do
    Begin
      n:=random(51);
      write(h,n);
      write(n:3);
    End;
    Reset(h);
    Assign(m,'out.dat');Rewrite(m);
    For i:=1 to FileSize(h) do
    Begin
      read(h,n);
      if n mod 5 = 0 then write(m,n);
    End;
    writeln;
    writeln('Файл M');
    Reset(m);
    if FileSize(m)=0 then writeln('Файл пуст')
     else 
      For i:=1 to FileSize(m) do
      Begin
        read(m,n);
        write(n:3);
      End;
    Close(h);Close(m);
    readln;
End.

@TPABAneHAPKOTUK 0 / 0 / 0 Регистрация: 22.01.2014 Сообщений: 6
		1
	Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5 25.01.2014, 00:08. Показов 1601. Ответов 1 Метки нет (Все метки) 1) Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5. 0

	26.01.2014, 10:07

Файл H заполнить целыми числами, полученными помощью генератора случайных чисел. В файл M записать значение файла H, кратное 5

Решение