Создание файла и запись данных в него
var
f: file of char;
c: char;
i, n: byte;
begin
assign (f, 'c:\file.txt');
rewrite (f);
write ('Количество символов: ');
readln (n);
for i:=1 to n do begin
write ('Введите символ: ');
readln (c);
write (f, c);
end;
close (f);
end.
202..docx
Создание файла и запись данных в него
var
f: file of char;
c: char;
i, n: byte;
begin
assign (f, 'c:\file.txt');
rewrite (f);
write ('Количество символов: ');
readln (n);
for i:=1 to n do begin
write ('Введите символ: ');
readln (c);
write (f, c);
end;
close (f);
end.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с
договором-офертой сайта. Вы можете
сообщить о нарушении.
Продолжая использовать наш сайт, вы соглашаетесь с политикой использования Cookies. Это файлы в браузере, которые помогают нам сделать ваш опыт взаимодействия с сайтом удобнее.