Viết chương trình thực hiện đếm xem trong tệp 'c:\songuyen.txt' chứa bao nhiêu số nguyên?
2 câu trả lời
var f: text;
i: word; a: integer;
Begin
Assign(f, 'c:\songuyen.txt'); reset(f);
i:=0;
While not eof(f) do
Begin
If eoln(f) then readln(f);
Read(f, a); inc(i);
End;
Write('co ',i,' so nguyen');
Readln
End.
program bai_giai;
uses crt;
var f:text;
n,d:integer;
begin
clrscr;
Assign(f,'c:\songuyen.txt'); reset(f);
d:=0;
while not eof(f) do
begin
read(f,n); d:=d+1;
end;
write(d);
close(f); readln;
end.
