Sử dụng ngôn ngữ lập trình Pascal để viết các chương trình nhằm giải quyết các bài toán sau:
Đếm xem có bao nhiêu số có 3 chữ số chia hết cho 3 nhưng không chia hết cho 6. Tính tổng của các số đó Tìm tất cả các số có 4 chữ số có tổng các chữ số chia hết cho 5 Kiểm tra một số nguyên cho trước có phải là số nguyên tố hay không? Tìm tất cả các số nguyên tố từ 2 đến n với n là số nguyên được nhập vào từ bàn phím Tìm tất cả các số hoàn hảo từ 1 đến n với n là số nguyên được nhập vào từ bàn phím. Tính tổng các số vừa tìm được.
1.
uses crt;
var i:longint;
begin
clrscr;
writeln('cac so thoa man la:');
for i:=100 to 999 do
if (i mod 3=0) and (i mod 6<>0) then
write(i,'; ');
readln
end.
3.
uses crt;
var n:longint;
function nt(n:longint):boolean;
var i:longint;
begin
nt:=true;
if n<2 then nt:=false;
for i:=2 to n div 2 do
if n mod i=0 then nt:=false;
end;
begin
clrscr;
write('nhap n=');readln(n);
if nt(n) then writeln(n,' ko la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln
end.
4.
uses crt;
var i,n:longint;
function nt(n:longint):boolean;
var i:longint;
begin
nt:=true;
if n<2 then nt:=false;
for i:=2 to n div 2 do
if n mod i=0 then nt:=false;
end;
begin
clrscr;
write('nhap n=');readln(n);
writeln('cac so nguyen to tu 2 den n la:');
for i:=2 to n do
if nt(i) then
write(i,';');
readln
end.
5.
uses crt;
var i,n,s:longint;
function shh(n:longint):longint;
var i,s:longint;
begin
shh:=false;
s:=0;
for i:=1 to n -1 do
if n mod i=0 then s:=s+i;
if n=s then shh:=true;
end;
begin
clrscr;
write('nhap n=');readln(n);
write('cac so hoan hao tu 1 den n la:');
s:=0;
for i:=1 to n do
if shh(i) then
begin
write(i,';');
s:=s+i;
end;
writeln;
writeln('tong cac so thoa man la:',s);
readln
end.
Bài 1:
uses crt;
var i,dem,t:longint;
begin
clrscr;
dem:=0;
t:=0;
for i:=100 to 999 do
if (i mod 3=0) and (i mod 6<>0) then
begin
inc(dem);
t:=t+i;
end;
writeln('so cac so co 3 chu so chia het cho 3 nhung khong chia het cho 6 la: ',dem);
writeln('tong cac so co 3 chu so chia het cho 3 nhung khong chia het cho 6 la: ',t);
readln;
end.
Bài 2:
uses crt;
var i,t,d,x,y,j:integer;
st:string;
begin
clrscr;
writeln('cac so co 4 chu so co tong cac chu so chia het cho 5 la: ');
for i:=1000 to 9999 do
begin
str(i,st);
d:=length(st);
t:=0;
for j:=1 to d do
begin
val(st[j],x,y);
t:=t+x;
end;
if t mod 5=0 then write(i:6);
end;
readln;
end.
Bài 3:
uses crt;
var n,i,kt:longint;
begin
clrscr;
write('n='); readln(n);
if n>1 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(n,' khong la so nguyen to');
readln;
end.
Bài 4:
uses crt;
var n,i,kt,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>1 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:4);
end;
end
else writeln('vui long nhap lai n');
readln;
end.
Bài 5:
uses crt;
var n,i,kt,j:longint;
begin
clrscr;
write('n='); readln(n);
if n>1 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:4);
end;
end
else writeln('vui long nhap lai n');
readln;
end.
