Pascal. Задача 6-1

Пользователь вводит целые числа, заканчивая ввод числом 0. Записать эти числа в файл C:\PABCWork.NET\mydata.dat.

Решение

var
  f : file of integer;
  t :integer;
begin
  Assign(f, 'C:\PABCWork.NET\mydata.dat');
  Rewrite(f);
  repeat
    Readln(t);
    if t <> 0 then
      Write(f, t);
  until t = 0;
  Close(f);
end.

◄▲►