файлы, посмотрите пожалуста Опции

[Anton12]

Процедура удвоение цифр..., А надо сделать чтоб удваивались ЧИСЛА, т.е. 45 у меня будет 810 а надо что было 90....помогите ...

[amega]

в твой процедуре преведена ерунда полная....
ты даже не привел тип файла какие они у тебя тектовые или типизированиые....
если тебе нужно в новом файле(и они типизированы) сохранять то делаеш просто

while not eof(f1) do 
  begin
     read(f1,a);
     a:=2*a;
     write(f2,a);
  end;

и все...

Сообщение отредактировано: amega - 17.05.2009 20:50