Bài tập về câu lệnh For
1. Viết chương trình tính tích P=1x2x3x..xn (n là các số nguyên >=1 nhập từ bàn phím).2. Viết chương trình tính lũy thừa của xn (x,n là các số nguyên dương nhập từ bàn phím).
3. Viết chương trình kiểm tra số nguyên n (n>=2) có phải là số hoàn hảo hay không? (số hoàn hảo là số bằng tổng các ước của nó trừ chính nó).
4. Viết chương trình kiểm tra số nguyên n (n>=2) có phải là số nguyên tố hay không? (số nguyên tố là số có 2 ước 1 và chính nó).
5. Viết chương trình in ra các số hoàn hảo từ 2 đến n (n là số nguyên >=2).
6. Viết chương trình in ra các số nguyên tố từ 2 đến n (n là số nguyên >=2).
giúp mình với nhé cảm ơn mọi người nhiều lắm
Bài 1:
uses crt;
var i,n:integer;
p:int64;
begin
clrscr;
write('n='); readln(n);
if n>=1 then
begin
p:=1;
for i:=1 to n do
p:=p*i;
writeln('tich P=',p);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var x,n,i:integer;
lt:int64;
begin
clrscr;
write('nhap co so x='); readln(x);
write('nhap so mu n='); readln(n);
if (x>0) and (n>0) then
begin
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 3:
uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan hao')
else writeln(n,' khong la so hoan hao');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 4:
uses crt;
var i,n,kt:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 5:
uses crt;
var i,n,t,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 6:
uses crt;
var i,n,kt,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 1:
uses crt;
var i,n:integer;
p:int64;
begin
clrscr;
write('n='); readln(n);
if n>=1 then
begin
p:=1;
for i:=1 to n do
p:=p*i;
writeln('tich P=',p);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var x,n,i:integer;
lt:int64;
begin
clrscr;
write('nhap co so x='); readln(x);
write('nhap so mu n='); readln(n);
if (x>0) and (n>0) then
begin
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 3:
uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan hao')
else writeln(n,' khong la so hoan hao');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 4:
uses crt;
var i,n,kt:integer;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end
else writeln('vui long nhap lai');
readln;
end.
Bài 5:
uses crt;
var i,n,t,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
Bài 6:
uses crt;
var i,n,kt,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>=2 then
begin
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i,' ')
end;
end
else writeln('vui long nhap lai');
readln;
end.
