Cho 1 tệp chứa 1 dãy số nguyên cách nhau bởi dấu cách. Viết chương trình đọc dữ liệu từ tệp. a) hiển thị ra màn hình tổng các số lẻ trong tệp b) đếm xem trong tệp có bao nhiêu số chia hết cho 3

ahihi2019

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 20 xem

1 trả lời

Thích Trả lời

linhgianga8

uses crt;
var f:text; i,n,s,d:longint;
a:array[1..100000]of longint;
begin
clrscr;
assign(f,'input.pas');reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
if a[i] mod 3=0 then inc(d);
end;
close(f);
assign(f,'output.pas');rewrite(f);
writeln(f,'a) ',s);
writeln(f,'b) ',d);
close(f);
end.

Vote (0) Phản hồi (0) 2 năm trước

phamminhhnn

uses crt;
var f:text;
a:array[1..1000]of word;
n,i,sum,count:word;
begin
clrscr;
assign(f,'tep.txt');reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,a[i]);
if a[i] mod 2=1 then inc(sum,a[i]);
if a[i] mod 3=0 then inc(count);
end;
close(f);
writeln(sum);
write(count);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Vẽ sơ đồ phân công và phân cấp bộ máy Nhà nước Cộng hòa xã hội chủ nghĩa Việt Nam ?

Tình hình văn hoá thế kĩ XVI_XVIII Lớp 7 Mong mọi người giúp

tìm số thứ 2015 của dãy số sau : 1,2,1/2, 3,1,1/3,4,3/2,2/3,1/4,5,2,1,......................

Hộ mình Làm đúng 5 sao Xong trước 8h30

Một xe nâng công suất 20kW thực hiện nâng một vật nặng 2,3 tấn lên cao 3m mất thời gian 35s. Tính hiệu suất của động cơ

Vẽ anime cute ( or chibi ) ( NL: Đang chán vì hôm qua có gây lộn , ai đó nhặt tui về tâm sự cùng zới :<< )

Cho tam giác ABC nội tiếp đường tâm (O). Có đường cao AD,BE,CF và giao điểm của 3 đường cao đó là H. CMR $\frac{S(AEF)}{S(ABC)}= cos^2A$ VIết và chứng minh điều tương tự ví dụ như bắt đầu từ đỉnh B? Cos^2B?

Giúp mình bài này với mình sắp nộp bài cho cô rồi😭😭😭😭

Tìm hiểu về bộ máy nhà nước cấp xã ở Gia Lộc - Hải Dương Nhiệm vụ của hội đồng nhân dân, ủy ban nhân dân cấp xã là gì? Gia đình em đã đến cơ quan hành chính nhà nước ở xã để làm gì? *Giúp mình với. Please!!!*

Công nghệ môi chị B Đầu 200 triệu đồng Để mua máy móc thiết bị Tiệm cắt tóc ( Hao hụt 10 % năm) . Mỗi năm 100 triệu đồng Mua nguyên liệu, 150 triệu đồng Tiền lương nhân viên, chị thu được 500 triệu đồng . Hãy xác định vốn lưu động của chị B

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến