Câu hỏi:

13/07/2024 344

Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:

a) Thủ tục nhập giá trị cho mảng A từ bàn phím.

b) Hàm kiểm tra số chia hết cho 3 hoặc 5.

Sách mới 2k7: 30 đề đánh giá năng lực DHQG Hà Nội, Tp. Hồ Chí Minh, BKHN 2025 mới nhất (600 trang - chỉ từ 140k).

Mua bộ đề Hà Nội Mua bộ đề Tp. Hồ Chí Minh Mua đề Bách Khoa

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

Lời giải:

uses crt;

var n:integer;
    a:array[1..500] of longint;
    s:longint;
function check(x:longint):boolean;
begin
        if (x mod 3=0) or (x mod 5=0) then exit(true);
        exit(false);
end;
procedure nhap;
var i:integer;
begin

        clrscr;
        write('Nhap n: '); readln(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,' : ');
                        readln(a[i]);
                end;
        writeln;
end;
procedure xuli;
var i:integer;
begin
        for i:=1 to n do
                if check(a[i]) then s:=s+a[i];
end;
procedure xuat;
begin
        write('Tong cac so chia het cho 3 hoac 5 la: ',s);
        readln;
end;
begin
        nhap;
        xuli;
        xuat;
end.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1:

Trong bảng phân quyền, các quyền truy cập dữ liệu, gồm có:

Xem đáp án » 27/06/2023 43,168

Câu 2:

Câu nào là đúng. Sau khi tạo cấu trúc cho bảng thì:

Xem đáp án » 27/06/2023 40,707

Câu 3:

Phần mềm nào sau đây không phải là hệ quản trị cơ sở dữ liệu quan hệ

Xem đáp án » 28/06/2023 40,082

Câu 4:

Bảo mật CSDL:

Xem đáp án » 27/06/2023 17,299

Câu 5:

Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):


Khoá chính của bảng là:

Xem đáp án » 27/06/2023 16,994

Câu 6:

Sau khi tạo liên kết giữa các bảng trong mô hình dữ liệu quan hệ, có thể thực hiện công việc nào dưới đây?

Xem đáp án » 28/06/2023 13,636

Câu 7:

Hai bảng trong một CSDL quan hệ liên kết với nhau thông qua:

Xem đáp án » 27/06/2023 11,756

Bình luận


Bình luận
Đăng ký gói thi VIP

VIP 1 - Luyện thi tất cả các đề có trên Website trong 1 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP 2 - Luyện thi tất cả các đề có trên Website trong 3 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP 3 - Luyện thi tất cả các đề có trên Website trong 6 tháng

  • Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

VIP 4 - Luyện thi tất cả các đề có trên Website trong 12 tháng

  • Siêu tiết kiệm - Được thi tất cả các đề của các lớp có trên Khoahoc.vietjack.com
  • Ngân hàng câu hỏi trắc nghiệm theo các mức độ Nhận biết, Thông hiểu, Vận dụng, Vận dụng cao.
  • Luyện chuyên sâu, rèn tốc độ với trọn bộ đề thi thử, đề minh họa, chính thức các năm.
  • Hỏi bài tập với đội ngũ chuyên môn cao của chúng tôi.

Đặt mua

tailieugiaovien.com.vn