Ngọc Anh verified Đã trả lời bởi chuyên gia
đã hỏi trong Lớp 12 Tin học
· 12:00 14/08/2023
verified Đã trả lời bởi chuyên gia
Theo dõi Báo cáo

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 ?

Trả Lời
Hỏi chi tiết
...Xem thêm

Quảng cáo

1 câu trả lời 107

Quang Minh
2 năm trước

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
0 bình luận
Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

Câu hỏi hot cùng chủ đề
Thành viên hăng hái nhất trong tuần
Xem thêm button Rút gọn button
Bài viết mới nhất Lớp 12
Xem thêm »
Gửi báo cáo thành công!