Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №17-5 / 17-5 / zadanie_5
.pas program Zadanie_5;
var
f: file of char;
i: char;
begin
assign (f,'xxx.txt');
rewrite (f);
writeln ('‚ўҐ¤ЁвҐ ⥪бв (ўл室 - Y)');
while i <> 'Y' do
begin
read (i);
write (f,i);
end;
close (f);
rename (f,'D2.DOC');
assign (f,'D2.DOC');
reset (f);
writeln ('‡ зҐЁп Ё§ ᮧ¤ ®Ј® д ©« D2.DOC:');
i:='0';
while i <> 'Y' do
begin
read (f,i);
write (i);
end;
close (f);
writeln ();
end.
var
f: file of char;
i: char;
begin
assign (f,'xxx.txt');
rewrite (f);
writeln ('‚ўҐ¤ЁвҐ ⥪бв (ўл室 - Y)');
while i <> 'Y' do
begin
read (i);
write (f,i);
end;
close (f);
rename (f,'D2.DOC');
assign (f,'D2.DOC');
reset (f);
writeln ('‡ зҐЁп Ё§ ᮧ¤ ®Ј® д ©« D2.DOC:');
i:='0';
while i <> 'Y' do
begin
read (f,i);
write (i);
end;
close (f);
writeln ();
end.