Câu hỏi:

09/07/2020 1,945

Viế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.

Nâng cấp VIP Thi Thử Ngay

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

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.

Quảng cáo

book vietjack

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?

Xem đáp án » 09/07/2020 12,090

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à:

Xem đáp án » 09/07/2020 6,656

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?

Xem đáp án » 09/07/2020 3,734

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à:

Xem đáp án » 09/07/2020 3,485

Câu 5:

Cho s = ‘Tien hoc le, hau hoc van’, hàm length(s) cho giá trị bằng:

Xem đáp án » 09/07/2020 3,419

Câu 6:

Để ghi 2 biến CV và DT vào biến tệp f2 ta sử dụng câu lệnh:

Xem đáp án » 09/07/2020 2,996

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à:

Xem đáp án » 09/07/2020 2,942

Bình luận


Bình luận