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 39: Viết chương trình nhập vào dãy số A1,A2......An. Xuất ra giá trị lớn nhất và bé nhất trong dãy và thứ tự của nó
Lời giải:
uses crt; var i,n,a,b, uc,bcnn:integer ;
c:array[1..100] of integer;
{--- CTC tim UCLL hai so} function ucln(a,b:integer):integer;
var r:integer;
begin r:=a mod b;
while r<>0 do begin a:=b; b:=r; r:= a mod b;
end;
ucln:=b;
end;
{--- CTC chinh----} begin Write('n= ');
readln(n);
for i:=1 to n do begin write('c[',i,']=');
readln(c[i]);
end;
for i:= 1 to n do
Write(c[i]:3);
writeln;
uc:=ucln(c[1], c[2]);
bcnn:=(c[1]*c[2])div uc;
for i:=3 to n do begin uc:=ucln(uc,c[i]);
bcnn:= bcnn*c[i] div uc;
end;
Writeln('bcnn =',bcnn);
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 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ụ....
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.
