Chương trình con và lập trình có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Thị Quỳnh Như

Cho tệp data.txt gồm 2 dòng , dòng đầu ghi số nguyên dương m, dòng 2 ghi m số nguyên. Hãy đọc dữ liệu từ tệp

a, ghi vào tệp mới songuyen.txt các số dương từ tệp data.txt

b, đếm số lượng các số là bội của một số nguyên k cho trước biết k nhập vào từ bàn phím

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

uses crt;
const fi='data.txt';
fo='songuyen.txt';
var f1,f2:text;
a:array[1..100]of integer;
m,i,dem,k:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
for i:=1 to m do
read(f1,a[i]);
for i:=1 to m do
if a[i]>0 then write(f2,a[i]:4);
writeln(f2);
write('Nhap so k='); readln(k);
dem:=0;
for i:=1 to m do
if a[i] mod k=0 then inc(dem);
writeln(f2,'So cac phan tu la boi cua ',k,' la: ',dem);
close(f1);
close(f2);
readln;
end.


Các câu hỏi tương tự
35.Nguyễn Anh Tú
Xem chi tiết
Bùi Thị Ngọc
Xem chi tiết
Đặng Công
Xem chi tiết
Mạnh Cường Đào Huỳnh
Xem chi tiết
Ngọc Diệp
Xem chi tiết
Trần Đức Hải
Xem chi tiết
Mai Linh
Xem chi tiết
Ngọc
Xem chi tiết
Nya arigatou~
Xem chi tiết