1.Số học sinh trường THCS Đông Mỹ tham gia học tập ngoại khóa tại làng dóm – Sóc
Sơn – Hà Nội năm học 2019-2020 là N (0<N<1000). In ra màn hình các kết quả sau, mỗi
kết quả trên một dòng.
- Dòng 1:Tổng các chữ số của N.
- Dòng 2:Các số nguyên tố nhỏ hơn tổng các chữ số của N.
- Dòng 3:Tổng các số nguyên tố trong dòng 2
2.Cho hai số nguyên dương A và B thỏa mãn (20=<A<=50, 30<=B<=75).Bằng ngôn
ngữ lập trình em hãy in ra màn hình các kết quả sau.
- Dòng 1: Các số có hai chữ số chia hết cho 9.
- Dòng 2: Các số chính phương lớn hơn A và nhỏ hơn B.
- Dòng 3: Số nguyên tố lớn nhất nhỏ hơn B.
3.Nhập từ bàn phím một số nguyên dương N (0<N<105
). Em hãy dùng ngôn ngữ lập
trình in ra màn hình các kết quả sau, mỗi kết quả trên một dòng.
- Dòng 1: Số lượng các chữ số của N.
- Dòng 2: Tổng các chữ số của N.
- Dòng 3: Phân số tối giản của N và số đảo ngược của N.
Bài 1:
uses crt;
var n,d,t,x,y,j,kt,i,t1,dem:integer;
st:string;
a:array[1..255]of integer;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<1000) then
begin
{------------------------dong-1---------------------------}
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('tong cac chu so cua ',n,' la: ',t);
{----------------------dong-2----------------------------}
writeln('cac so nguyen to nho hon tong cac chu so cua ',n,' la: ');
dem:=0;
for i:=2 to t-1 do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
dem:=dem+1;
a[dem]:=i;
end;
end;
{----------------dong-3---------------------------}
writeln;
t1:=0;
for i:=1 to dem do
t1:=t1+a[i];
writeln('tong cac so nguyen to trong dong 2 la: ',t1);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 2:
uses crt;
var a,b,i,dem,j,kt:integer;
c:array[1..100]of integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (20<=a) and (a<=50) and (30<=b) and (b<=75) then
begin
{------------------------dong-1--------------------------}
writeln('cac so co 2 chu so chia het cho 9 la:');
for i:=10 to 99 do
if i mod 9=0 then write(i:4);
{-----------------------dong-2--------------------------}
writeln;
writeln('cac so chinh phuong lon hon ',a,' va nho hon ',b,' la: ');
for i:=a+1 to b-1 do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
{-----------------------dong-3---------------------------}
writeln;
dem:=0;
for i:=2 to b do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
c[dem]:=i;
end;
end;
writeln('so nguyen to lon nhat nho hon ',b,' la: ',c[dem]);
end
else writeln('vui long nhap lai');
readln;
end.
Bài 3:
uses crt;
var n,d,t,i,x,y:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<105) then
begin
{---------------------------dong-1---------------------------}
str(n,st);
d:=length(st);
writeln('so luong cac chu so cua ',n,' la: ',d);
{---------------------------dong-2--------------------------}
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('tong cac chu so cua ',n,' la: ',t);
{---------------------------dong-3------------------------}
writeln('phan so toi gian cua ',n,' la: 1/',n);
write('so dao nguoc cua ',n,' la: ');
for i:=d downto 1 do
write(st[i]);
end
else writeln('vui long nhap lai');
readln;
end.
Câu 1:
Program hotrotinhoc;
var i,tog,n: integer;
function tong(x: integer): integer;
var k,t: longint;
begin
t:=0;
while x<>0 do
begin
k:=x mod 10;
t:=t+k;
x:=x div 10;
end;
tong:=t;
end;
function nt(a: integer): boolean;
var j: integer;
begin
nt:=true;
if (a=2) or (a=3) then exit;
nt:=false;
if (a=1) or (a mod 2=0) or (a mod 3=0) then exit;
j:=5;
while (j<=trunc(sqrt(a))) do
begin
if (a mod j=0) or (a mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap so nguyen N :'); readln(n);
writeln('Tong cac chu so cua N la :',tong(n));
write('Cac so nguyen to nho hon tong cac chu so cua N la :');
for i:=1 to tong(n) do if nt(i) then
begin
write(i,' ');
tog:=tog+i;
end;
writeln;
write('Tong cac so nguyen to trong dong 2 la :',tog);
readln
end.
Câu 2:
Program hotrotinhoc_hoc24;
var i,a,b,n: byte;
function cp(x: integer): boolean;
begin
cp:=false;
if x<>sqr(trunc(sqrt(x))) then exit;
cp:=true;
end;
function nt(a: integer): boolean;
var j: integer;
begin
nt:=true;
if (a=2) or (a=3) then exit;
nt:=false;
if (a=1) or (a mod 2=0) or (a mod 3=0) then exit;
j:=5;
while (j<=trunc(sqrt(a))) do
begin
if (a mod j=0) or (a mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap so nguyen A,B='); readln(a,b);
write('Cac so co hai chu so chia het cho 9 la : ');
for i:=18 to 99 do
if i mod 9=0 then write(i,' ');
writeln;
write('Cac so chinh phuong lon hon A va be hon B la : ');
for i:=a+1 to b-1 do
if cp(i) then write(i,' ');
writeln;
dec(b);
while nt(b)=false do
b:=b-1;
write('So nguyen to lon nhat nho hon B la :',b);
readln
end.
Bạn kiểm tra lại đề nhé . Đề cho N là số nguyên dương làm sao tìm phân số tối giản của N nhỉ?
Câu 3:
Program hotrotinhoc;
var n: integer;
function tong(x: integer): integer;
var k,t: longint;
begin
t:=0;
while x<>0 do
begin
k:=x mod 10;
t:=t+k;
x:=x div 10;
end;
tong:=t;
end;
function dn(a: integer): integer;
var t1: longint;
begin
t1:=0;
while a<>0 do
begin
t1:=t1*10+(a mod 10);
a:=a div 10;
end;
dn:=t1;
end;
function cs(y: integer): integer;
var d: integer;
begin
d:=0;
while y<>0 do
begin
inc(d);
y:=y div 10;
end;
cs:=d;
end;
begin
write('Nhap so nguyen N: '); readln(n);
writeln('So luong cac chu so cua N la :',cs(n));
writeln('Tong cac chu so cua N la :', tong(n));
write('So dao nguoc cua N la :',dn(n));
readln
end.
2 lần thì ô A1 sẽ cho kết quả : 
