Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Procedure LoadTest(Nomer : integer);
Begin
AssignFile(f,'Answer.txt');
Reset(f);
L:=FileRead(H1,Buf,3000);
FileWrite(H,i,2);
FileWrite(H,L,4);
FileWrite(H,Buf,L);
TRUE_ANSWER:=IntToStr()
End;
Begin
AssignFile(f,'Answer.txt');
Reset(f);
L:=FileRead(H1,Buf,3000);
FileWrite(H,i,2);
FileWrite(H,L,4);
FileWrite(H,Buf,L);
TRUE_ANSWER:=IntToStr()
End;