Question

[Sha Dow]

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.

Answer 1

[Nguyễn Lê Phước Thịnh]

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.

Answer 2

[Minh Lệ]

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.