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 4)
Câu 100: Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết)
Lời giải:
uses crt;
var a, b, s1, s2, i : integer;
begin
clrscr;
s1 := 0; s2 := 0;
write('nhap hai so : '); readln(a, b);
for i := 1 to a - 1 do
if a mod i = 0 then s1 := s1 + i;
for i := 1 to b - 1 do
if b mod i = 0 then s2 := s2 + i;
if (s2 = a) and (s1 = b) then
writeln(a,' va ', b ,' la hai so than thiet')
else writeln(a,' va ', b ,' khong la hai so than thiet');
readln
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 1: Trong các tên sau, tên nào là tên biến đúng trong ngôn ngữ lập trình Python?......
Câu 2: Mô tả thuật toán là:.......
Câu 4: Phần mềm soạn thảo văn bản, trình duyệt web, thư điện tử được gọi là?.....
Câu 6: Thiết bị nào sau đây không phải là thiết bị số ?.......
Câu7: Mục đích của mạng xã hội là gì?.......
Câu 9: Hãy mô tả thuật toán tìm số nhỏ nhất trong dãy A các số a1,a2,...,an cho trước.....
Câu 11: Viết chương trình in ra màn hình họ và tên của mình.......
Câu 12: Trong các dữ liệu sau đây, đâu là một CSDL? .........
Câu 13: Dữ liệu nào sau đây không là một CSDL của một tổ chức? .........
Câu 14: Phát biểu nào sau đây đúng? Mỗi trường (Field) là.....
Câu 15: Em hãy cho biết kết quả của chương trình ssau.......
Câu 16: Em hãy cho biết kết quả của chương trình sau: ......
Câu 17: Chọn phát biểu sai trong các phát biểu dưới đây về câu lệnh lặp WHILE … DO? ....
Câu 18: Nêu các bước tạo cấu trúc bảng trong access 2007....
Câu 19: Em hãy cho biết kết quả của chương trình sau: .......
CÔNG TY TNHH ĐẦU TƯ VÀ DỊCH VỤ GIÁO DỤC VIETJACK
- Người đại diện: Nguyễn Thanh Tuyền
- Số giấy chứng nhận đăng ký kinh doanh: 0108307822, ngày cấp: 04/06/2018, nơi cấp: Sở Kế hoạch và Đầu tư thành phố Hà Nội.
© 2021 Vietjack. All Rights Reserved.
