Cho tệp số txt chứa số nguyên in các số chẵn ra màn hình
|
Show
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 = 0 then Tong:= Tong+i; write(f2, Tong); close(f1); close(f2);End.CÂU HỎI HOT CÙNG CHỦ ĐỀ
Trong PASCAL, để khai báo hai biến tệp văn bản f1, f2 ta viết: Xem đáp án » 19/06/2021 13,163
Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm: Xem đáp án » 19/06/2021 3,492
Để gắn tệp KQ.TXT cho biến tệp f2 ta sử dụng câu lệnh: Xem đáp án » 19/06/2021 2,625
Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’ Lệnh nào sau đây cho kết quả ‘Truyen Kieu’ Xem đáp án » 19/06/2021 2,484
Muốn khai báo x, y là tham số biến (x, y thuộc kiểu integer) trong thủ tục có tên là “Hoan_doi” thì khai báo nào sau đây là đúng: Xem đáp án » 19/06/2021 2,347
Cho s = ‘ABCDEF’, hàm copy (s, 2, 3) cho giá trị là: Xem đáp án » 19/06/2021 2,165
Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá: Xem đáp án » 19/06/2021 2,116
Khai báo 2 biến xâu a, b nào sau đây là đúng: Xem đáp án » 19/06/2021 1,379
Cho chương trình sau: procedure thutuc (a, b: integer); Begin … End; Trong chương trình chính có thể gọi lại chương trình con như thế nào Xem đáp án » 19/06/2021 1,258
Cho đoạn chương trình sau: s1 := ‘123d’; s2 := ‘abcd’; delete(s1, 1, 3); write(pos (s1, s2)); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 958
Các biến được khai báo dùng riêng cho chương trình con được gọi là: Xem đáp án » 19/06/2021 933
Cho đoạn chương trình sau: s1 := ‘abcd’; s2: ‘abab’; if length(s1) > length(s2) then write(s1) else write(s2); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 921
Cho đoạn chương trình sau: s1 := ‘bbaa’; s2: ‘abcd’; if s1 > s2 then write(s1) else write(s2); Kết quả in ra màn hình là: Xem đáp án » 19/06/2021 795
Câu lệnh mở biến tệp f1 để đọc dữ liệu có dạng: Xem đáp án » 19/06/2021 775
Tệp f1 có dữ liệu Xem đáp án » 19/06/2021 655
Khách Hãy nhập câu hỏi của bạn vào đây
Những câu hỏi liên quan
program bai_tap; var t,k:integer; begin assign(input,'DULIEU.TXT'); reset(input); assign(output,'KETQUA.TXT'); rewrite(output); t:=0; while not eof(input) do begin read(k); t:=t+sqr(k); end; write(t); close(output); end.  2 trả lời Thông tin dữ liệu vật mang tin là gì? (Tin học - Lớp 6) 1 trả lời Chương trình dịch là gì (Tin học - Lớp 11) 1 trả lời Em hãy nêu ví dụ cho thấy thông tin giúp em: (Tin học - Lớp 6) 2 trả lời Hãy giải thích MVP là gì (Tin học - Lớp 5) 4 trả lời |
