Я новичок
Как избавится от квадратиков в программе считывание из файла?
uses crt;
var
f: file of char;
c: char;
begin
assign (f, 'G:\file.txt');
reset (f);
while not eof (f) do begin
read (f,c);
write (c);
end;
writeln();
close (f);
readln
end.
uses crt;
var
f: file of char;
c: char;
begin
assign (f, 'G:\file.txt');
reset (f);
while not eof (f) do begin
read (f,c);
write (c);
end;
writeln();
close (f);
readln
end.
Завести файл без квадратиков :)
это тебе полторы недели понадобилось что бы такое запетросянить? нуну.