Скачиваний:
6
Добавлен:
01.05.2014
Размер:
476 б
Скачать
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.

Соседние файлы в папке 17-5
  • #
    01.05.2014487 б5zadanie_5.bak
  • #
    01.05.20144.1 Кб5zadanie_5.o
  • #
    01.05.2014476 б6zadanie_5.pas