Lập trình đơn giản

dinhnguyentuhuy

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àm giúp với !

Nguyễn Lê Phước Thịnh
13 tháng 12 2020 lúc 22:29

uses crt;

var a:array[1..100]of integer;

i,n,t,kt: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 ban 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 cac so vua nhap la: ',t);

if t>=2 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(t)) do 

  if t mod i=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');

end

else writeln(t,' khong la so nguyen to');

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Quỳnh
Xem chi tiết
Huhu chỉ mình với
Xem chi tiết
duyy
Xem chi tiết
Nhân lê
Xem chi tiết
Long Triệu
Xem chi tiết