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:
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
Câu 37: Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Lời giải:
uses crt;
var a:array[1..100]of integer;
i,n,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
kt:=0;
for j:=2 to trunc(sqrt(t)) do
if t mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
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: Nêu sự khác nhau giữa biến và hằng và cho một vài ví dụ về khai báo biến và hằng........
Câu 2: Các tên biến nào dưới đây là hợp lệ trong Python?.....
Câu 3: Các tên biến sau có hợp lệ không?......
Câu 4: Những cách đặt tên biến nào sau đây là hợp lệ?......
Câu 10: Các chức năng chính của thư điện tử?.......
Câu 11: Hãy trình bày những chức năng chính của dịch vụ thư điện tử?........
Câu 12: Nêu những chức năng của mạng xã hội mà em biết?............
Câu 14: Dữ liệu máy tính là gì?........
Câu 15: Lệnh gán X := X+1 có ý nghĩa như thế nào?......
Câu 16: Cách sử dụng lệnh gán?......
Câu 17: Cách gõ dấu nháy đơn, dấu nháy kép trong Word.....
Câu 18: Cách bật Dấu nháy kép thông minh trong Word?...
Câu 19: Hãy chỉ ra các lợi ích mà tin học và máy tính có thể đem lại?...
Câu 20: Thông tin khi đưa vào máy tính, chúng đều được biến đổi thành dạng chung đó là:....
Câu 21: Cách bôi đen văn bảng trong word, excel.....
Câu 22: Khai báo biến trong pascal?......
Câu 23: Cho biến k= ‘23.0’. Biến k phải được khai báo với kiểu dữ liệu nnào.......
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.
