Cho tệp Input.txt nằm ở ổ đĩa D theo đường dẫn D:\Input.txt gồm 2 dòng
5
79462
- Dòng 1 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 chương trình (có sử dụng chương trình con) thực hiện các yêu cầu sau:
- Đọc số nguyên n và dãy số đó vào chương trình
- Đếm các số là bội của 5
- Ghi kết quả tính được vào tệp Output.txt nẳm ở ổ đĩa D theo...
Đọc tiếp
Cho tệp Input.txt nằm ở ổ đĩa D theo đường dẫn D:\Input.txt gồm 2 dòng
5
79462
- Dòng 1 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 chương trình (có sử dụng chương trình con) thực hiện các yêu cầu sau:
- Đọc số nguyên n và dãy số đó vào chương trình
- Đếm các số là bội của 5
- Ghi kết quả tính được vào tệp Output.txt nẳm ở ổ đĩa D theo đường dẫn
D:\Output.txt
const fi='input.txt';
fo='output.txt';
var f1,f2:text;
n,i,dem:integer;
a:array[1..100]of integer;
{------------------------chuong-trinh-con-1----------------------------}
procedure docfile;
begin
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
close(f1);
end;
{------------------------chuong-trinh-con-2----------------------------}
procedure xuatfile;
begin
assign(f2,fo); rewrite(f2);
dem:=0;
for i:=1 to n do
if a[i] mod 5=0 then inc(dem);
writeln(f2,dem);
close(f2);
end;
{-------------------------chuong-trinh-chinh-------------------------}
begin
docfile;
xuatfile;
end.