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

Thuy Trang

Mọi người ơi giúp mik vs

Viết chương trình kiểm tra xem các số có trong tệp SO.EQU số nào là số âm chia hết cho 5 sau đó đưa tất cả các số này vào tệp SOAM5.EQU?

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

const fi='so.equ';

fo='soam5.equ';

var f1,f2:text;

i,n:integer;

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

begin

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

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

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

for i:=1 to n do

if (a[i]<0) and (a[i] mod 5=0) then write(f2,a[i]:4);

close(f1);

close(f2);

end.

Bình luận (0)

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