Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .
BA1.INP. BAI1.OUT
6. 9
Bài 14: Kiểu dữ liệu tệp
Program HOC24;
var i,n: integer;
t: longint;
f1,f2: text;
begin
assign(f1,'BAI1.INP');
reset(f1);
read(f1,n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
close(f1);
assign(f2,'BAI1.OUT');
rewrite(f2);
write(f2,t);
close(f2);
end.
Đúng 2
Bình luận (0)
Cho tệp dulieuvao txt chứa dãy số nguyên viết chương trình đọc dãy số đó,sắp xếp thành tăng dần rồi ghi kết quả đó vào dulieura txt
ai có thể giúp mình được không ạ
Viết chương trình đọc tệp Sothuc.text chứa ba số thực, các số cách nhau một dấu cách ghi tệp Tích.text tích của ba số đó? Giúp mình bài này với ạ
Cho dãy số A gồm N số nguyên A1, A2, ..., AN. Dãy số Ap,...,Aq với 1≤p,q≤N được gọi là dãy con của dãy số A. Tổng giá trị các số trong một dãy con được gọi là trọng lượng của dãy con đó. Hãy tìm dãy con có trọng lượng lớn nhất của dãy số A.Dữ liệu vào là tệp văn bản dayso.inp có cấu trúc:- Dòng đầu tiên chứa số N (N≤255).- Dòng thứ hai chứa dãy số A, các số ghi cách nhau ít nhất là một ký tự trống..Dữ liệu ra là tệp văn bản dayso.out có cấu trúc như sau:- Dòng đầu tiên chứa hai số cách nh...
Đọc tiếp
Cho dãy số A gồm N số nguyên A1, A2, ..., AN. Dãy số Ap,...,Aq với 1≤p,q≤N được gọi là dãy con của dãy số A. Tổng giá trị các số trong một dãy con được gọi là trọng lượng của dãy con đó. Hãy tìm dãy con có trọng lượng lớn nhất của dãy số A.
Dữ liệu vào là tệp văn bản dayso.inp có cấu trúc:
- Dòng đầu tiên chứa số N (N≤255).
- Dòng thứ hai chứa dãy số A, các số ghi cách nhau ít nhất là một ký tự trống..
Dữ liệu ra là tệp văn bản dayso.out có cấu trúc như sau:
- Dòng đầu tiên chứa hai số cách nhau ít nhất một ký tự trống là chỉ số của số đầu và số cuối của dãy con tìm được.
- Dòng thứ hai chứa trọng lượng của dãy con tìm được.
giúp mình với
cho tệp songuyen.txt gồm n phần tử ,các số được nhập cách nhau một dấu cách.Tìm những số chẵn trong dãy số trên rồi ghi vào tệp ketqua.txt
with open('songuyen.txt', 'r') as f:
with open('ketqua.txt', 'w') as g:
for line in f:
numbers = line.split()
for number in numbers:
if int(number) % 2 == 0:
g.write(number + '\n')
Đúng 2
Bình luận (0)
TH
28 tháng 12 2022 lúc 18:37
cho một dãy số gồm N phần tử(N< hoặc =100)giá trị từng phần tử là số thực,thực hiện các nhiệm vụ sau.
a) nhập từ bàn phím số phần tử và giá trị của phần tử
b)in ra các phần tử là số nguyên tố
c) tính tổng và trung bình cộng của các phần tử chẵn của dãy
d) in các kết quả ra màn hình
Cho tệp DEMXAU.INP chứa một xâu kí tự bất kì ,viết CHương trình đếm xem xâu đã cho có bao nhiêu từ .kết quả ghi ra tệp DEMXAU.OUT
giúp mình với mình cần rất gấp. híc híc
const fi='demxau.inp',
fo='demxau.out'
var f1,f2:text;
st:string;
d,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(f2,dem+1);
close(f1);
close(f2);
end.
Đúng 2
Bình luận (0)
Giúp em giải với ạ