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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phan Vũ Nhật Huy

Bài 1: nhập n số nguyên vào bàn phím xuất ra

- Dòng 1: các số n vừa nhập

- Dòng 2: 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

Bài 2: nhập n số nguyên vào bàn phím và kết thúc khi nhập số 0

- Dòng 1: xuất ra các số n vừa nhập

- Dòng 2: tổng các số vừa nhập và xét xem tổng đó có phải là số hoàn hảo không

Minh Lệ
28 tháng 5 2020 lúc 22:05

Bài 1:

Program HOC24;

var i,n: integer;

t: longint;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('n='); readln(n);

t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,':'); readln(a[i]);

t:=t+a[i];

end;

for i:=1 to n do if i<n then write(a[i],' ') else

if i=n then writeln(a[i]);

write('Tong cac so vua nhap la : ',t,' ;');

if nt(t) then write('Tong la so nguyen to') else write('Tong khong phai la so nguyen to');

readln

end.

Minh Lệ
28 tháng 5 2020 lúc 22:23

Bài 2:

Program HOC24;

var i,j,n: integer;

t: longint;

a: array[1..32000] of integer;

function hh(x:integer):boolean;

var i,s:integer;

begin

s:=0;

hh:=false;

for i:= 1 to x div 2 do

if x mod i = 0 then s:=s+i;

if s = x then hh:=true;

end;

begin

write('Nhap so nguyen : '); readln(n);

if n=0 then

begin

writeln(n);

write('Tong cac so vua nhap la 0 va tong do khong phai so hoan hao');

end

else

begin

a[1]:=n; i:=1;

while n<>0 do

begin

i:=i+1;

write('Nhap so nguyen : '); readln(n);

a[i]:=n;

end;

t:=0;

write('Cac so n vua nhap la : ');

for j:=1 to i do

begin

t:=t+a[j];

write(a[j],' ');

end;

writeln;

write('Tong cac so vua nhap la : ',t,' ;');

if hh(t) then write('Tong nay la so hoan hao') else write('Khong phai so hoan hao');

end;

readln

end.


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
dinhnguyentuhuy
Xem chi tiết
Long Triệu
Xem chi tiết
Nhân lê
Xem chi tiết
Quỳnh
Xem chi tiết
Nguyên Thi
Xem chi tiết