ModuleКомментарии : 1 Просмотры : 1087
Комментарии : 1 Просмотры : 1087
azat98 29 Дек 15 11:55
uses crt;
var f:text; s,k:string; begin write('ведите имя файла '); read(s); assign(f,s); append(f); readln(k); write(f,k);end. +1
|