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
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.
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.