Прибавьте к каждому целому числу файла число 100 - Turbo Pascal (33781)

Формулировка задачи:

Напишите программу создания файла, с целыми числами, прибавьте к каждому целому числу этого файла число 100, результат выведите на экран и в новый текстовый файл.

Код к задаче: «Прибавьте к каждому целому числу файла число 100 - Turbo Pascal (33781)»

textual
var
   f,g: file of integer;
   n,i: integer;
begin
     Assign(f,'input.dat');  Reset(f);
     Assign(g,'output.dat'); Rewrite(g);
     While not Eof(f) do begin
           Read(f,n);
           i:=n-8240+100;
           Write(g,i);
           end;
     Close(f);
     Close(g);
     Assign(g,'output.dat'); Reset(g);
     While not Eof(g) do begin
           Read(g,i);
           Writeln(i);
           end;
     Close(g);
Readln;
end.

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ