Ответы
Ответ дал:
0
var
t : string;
f : text;
i, k : integer;
begin
assign(f, 'file.txt');
// создаем файл
rewrite(f);
repeat
write('Вводим строку(окончание ввода "~"): ');
readln(s);
writeln(f, s)
until t = '~';
close(f);
writeln('Нажмите Enter...');
readln;
// считаем символы
reset(f);
k := 0;
while not EOF(f) do
begin
readln(f, t);
for i := 1 to length(s) do inc(k)
end;
close(f);
writeln('Символов в файле: ', k)
end.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад