Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика / 10 / WRITER
.PAS Const
Name = 'D:\TP\10\Base.Lab';
Var f: Text;
s: String[80];
Begin
Assign(f,Name);
ReWrite(f);
WriteLn('‚л室 - Їгбв п бва®Є ');
WriteLn('‚ўҐ¤ЁвҐ:');
ReadLn(s); if s<>'' then Write(f,s);
While s<>'' Do Begin
ReadLn(s);
if s<>'' then Begin
WriteLn(f);
Write(f,s);
End;
End;
Close(f);
End.
Name = 'D:\TP\10\Base.Lab';
Var f: Text;
s: String[80];
Begin
Assign(f,Name);
ReWrite(f);
WriteLn('‚л室 - Їгбв п бва®Є ');
WriteLn('‚ўҐ¤ЁвҐ:');
ReadLn(s); if s<>'' then Write(f,s);
While s<>'' Do Begin
ReadLn(s);
if s<>'' then Begin
WriteLn(f);
Write(f,s);
End;
End;
Close(f);
End.