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? 20/07/2021 Bởi Harper 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?
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. Bình luận
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.