Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nhung Duong

Cho tệp SUM.INP gồm 2 dòng: dòng1 chứa số nguyên dương n(n<=100)

Dòng 2 chứa n số nguyên dương, mỗi số cách nhau một khoảng trắng.

Viết ct thực hiện yêu cầu sau:

- đọc số nguyên n và dãy số đó vào ct

- đếm các số là bội của 3

- ghi kq tính được ra tệp SUM.OUT

Mọi người giúp mk với. T2 mk thi rồi. Cảm ơn mn ạ

Trúc Giang
27 tháng 6 2020 lúc 19:28

program hoc24;
var f, g: text;
n, i, dem: integer;
begin
assign(f, 'SUM.INP');
reset(f);
assign(g, 'SUM.OUT');
rewrite(g);
readln(f, n);
while not eof(f) do
begin
read(f, i);
if i mod 3 = 0 then dem:=dem+1;
end;
Write(g, 'Co ',dem,' so la boi cua 3');
close(g);
readln;
end.

Nguyễn Lê Phước Thịnh
27 tháng 6 2020 lúc 20:17

const fi='sum.inp';

fo='sum.out';

var f1,f2:text;

a:array[1..100]of integer;

i,n,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

dem:=0;

for i:=1 to n do

if a[i] mod 3=0 then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Trung Kiên Lưu
Xem chi tiết
Dương Hữu Thành
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Phạm Đức Huy
Xem chi tiết
Quỳnh Anh
Xem chi tiết
An Đinh
Xem chi tiết
Linh
Xem chi tiết
Nguyễn Nhật Bình
Xem chi tiết
Trinh Trinh
Xem chi tiết