Uses crt; var f:text; g:string; c:char; begin write('введите имя файла'); read(g); assign(f,g); rewrite(f); writeln('введите текст, который нужно записать'); writeln('по окончанию нажмите "esc"'); repeat write(f,c); write(c); i...
Uses crt;
var f:text;
g:string;
c:char;
begin
write('введите имя файла');
read(g);
assign(f,g);
rewrite(f);
writeln('введите текст, который нужно записать');
writeln('по окончанию нажмите "esc"');
repeat
write(f,c);
write(c);
if c='13' then writeln;
until c='27';
close(f);
end.
где здесь ошибка? он мне пишет что не закрыта 1 программа... это abc pascal
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы