Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:
Top 1000 câu hỏi thường gặp môn Tin học (Phần 5)
Câu 41: 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.
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.
Xem thêm các bài tập thường gặp môn Tin học hay, chọn lọc khác:
Câu 2: Một thủ tục trong Logo bắt đầu và kết thúc bởi.....
Câu 4: Một thủ tục trong Logo có ba phần. Kể tên các phần đó..........
Câu 5: Thủ tục là gì? Thủ tục trong logo?......
Câu 7: Khi sử dụng chương trình Paint để vẽ một bức tranh, em có thể lưu bức tranh đó ở đâu?........
Câu 8: Trình bày sơ đồ khối cấu trúc rẽ nhánh đang thiếu, dạng đủ.......
Câu 10: Viết chương trình nhập vào một số nguyên n rồi in ra màn hình tổng các chữ số của n...
Câu 11: Viết chương trình tính tổng 20 số tự nhiên đầu tiên.......
Câu 12: Viết chương trình tính tổng các số chia hết cho 2 của một mảng số được nhập từ bàn phím.....
Câu 13: Viết chương trình in ra các số hoàn thiện khoảng từ M đến N...
Câu 14: Khi truy cập Internet, chúng ta không thể tìm kiếm thông tin nào dưới đây?..
Câu 19: Viết thủ tục vẽ 5 hình vuông lồng nhau có cạnh bằng 100 bước Rùa.......
Câu 22: div là gì và mod là gì. Lấy ví dụ....