Câu hỏi:
09/07/2020 1,945Viết chương trình:
Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)
Tính tổng các số lẻ trong phạm vi từ M đến N
Ghi kết quả ra tệp “KETQUA.TXT”.
Gói VIP thi online tại VietJack (chỉ 200k/1 năm học), luyện tập hơn 1 triệu câu hỏi có đáp án chi tiết.
Quảng cáo
Trả lời:
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 1 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 1:
Cho đoạn chương trình sau:
Var g:text;
I:integer;
Begin
Assign(g, ‘C:\DLA.txt’);
Rewrite(g);
For i:=1 to 10 do
If i mod 2 = 0 then write(g, i);
Close(g);
Readln
End.
Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?
Câu 2:
Cho đoạn chương trình sau:
s1 := ‘abcd’; s2: ‘acb’;
if s1 > s2 then write(s1) else write(s2);
Kết quả in ra màn hình là:
Câu 3:
Giả sử ta có hàm max(A, B: integer):integer; để tìm số lớn hơn trong hai số A và B. Cần sử dụng hàm max trên như thế nào để tìm được số lớn nhất trong ba số A, B, C?
Câu 4:
Cho đoạn chương trình sau:
s1 := ‘1234’; s2: ‘abcd’;
if length(s1) > length(s2) then write(s1) else write(s2);
Kết quả in ra màn hình là:
Câu 5:
Cho s = ‘Tien hoc le, hau hoc van’, hàm length(s) cho giá trị bằng:
Câu 7:
Trong lời gọi thủ tục, các tham số hình thức được thay bằng các giá trị cụ thể được gọi là:
về câu hỏi!