Question

1.Trong cuộc thi chạy marathon hội khỏe phù đổng toàn trường THCS Đông Mỹ năm học 2019-
2020. Tổng số học sinh tham gia là một số nguyên dương N có K chữ số (2<K<5) Em hãy lập trình in
ra màn hình các kết quả sau đây.
- Dòng 1: Chữ số lớn nhất ,nhỏ nhất của N.
- Dòng 2: Tổng các chữ số là chữ số lẻ trong N.
- Dòng 3: Tổng các chữ số là số chữ số chẵn trong N.

2.Tổng số học sinh khối 6 trường THCS Đông Mỹ năm học 2019-2020 tham gia kiểm tra khám
sức khỏe là một số nguyên dương N có 3 chữ số.Em hãy lập trình in ra màn hình các kết quả sau.
- Dòng 1: Tổng các chữ số của N.
- Dòng 2: Các chữ số chẵn trong các chữ số của N. Nếu không có in ra màn hình ‘KHONG CO’.
- Dòng 3: Các chứ số lẻ trong các chữ số của N.Nếu không có in ra màn hình “KHONG CO’.

Answer 1

Câu 1:

Program hotrotinhoc;

var i,n: longint;

x,tl,tc,min,max,k: integer;

begin

write('Nhap so chu so : '); readln(k);

write('Nhap so nguyen N : '); readln(n);

max:=0; min:=99999; tl:=0; tc:=0;

while n<>0 do

begin

x:=n mod 10;

if max<x then max:=x;

if min>x then min:=x;

if x mod 2<>0 then tl:=tl+x;

if x mod 2=0 then tc:=tc+x;

x:=x div 10;

end;

writeln('Chu so lon nhat la : ',max,' ; ',' Chu so be nhat la : ',min);

writeln('Tong cac chu so la chu so le la :',tl);

write('Tong cac chu so la chu so chan la :',tc);

readln

end.

Answer 2

Bài 1: Sửa đề: Dòng 3: Tổng các chữ số là chữ số chẵn trong N

uses crt;
var n,k,i,x,max,min,t,t1:integer;
a:array[1..4]of integer;
st:string;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
str(n,st);
k:=length(st);
if (2<k) and (k<5) then
begin
{------------------------dong-1------------------------}
for i:=1 to k do
val(st[i],a[i],x);
max:=a[1];
min:=a[1];
for i:=1 to k do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('chu so lon nhat cua ',n,' la: ',max);
writeln('chu so nho nhat cua ',n,' la: ',min);
{----------------------dong-2------------------------}
t:=0;
for i:=1 to k do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('tong cac chu so la chu so le trong ',n,' la: ',t);
{---------------------dong-3-------------------------}
t1:=0;
for i:=1 to k do
if a[i] mod 2=0 then t1:=t1+a[i];
writeln('tong cac chu so la chu so chan trong ',n,' la: ',t1);
end
else writeln('vui long nhap lai');
end
else writeln('vui long nhap lai');
readln;
end.

Bài 2:

uses crt;
var n,i,t,d,y,kt,kt1:integer;
a:array[1..3]of integer;
st:string[3];
begin
clrscr;
write('n='); readln(n);
if (100<=n) and (n<=999) then
begin
str(n,st);
d:=length(st);
{--------------------------dong-1-------------------}
t:=0;
for i:=1 to d do
begin
val(st[i],a[i],y);
t:=t+a[i];
end;
writeln('tong cac chu so cua so ',n,' la: ',t);
{-------------------------dong-2---------------------}
kt:=0;
for i:=1 to d do
if a[i] mod 2=0 then
begin
kt:=1;
write(a[i]:4);
end;
if kt=0 then writeln('KHONG CO');
{-----------------------dong-3----------------------}
writeln;
kt1:=0;
for i:=1 to d do
if a[i] mod 2=1 then
begin
kt1:=1;
write(a[i]:4);
end;
if kt1=0 then writeln('KHONG CO');
end
else writeln('vui long nhap lai');
readln;
end.

Answer 3

https://i.imgur.com/huhxTAc.png

Answer 4

Câu 2:

Program hotrotinhoc;

var l,j,i,k,d,t,n: integer;

a,b: array[1..3] of byte;

begin

write('Nhap so nguyen N : '); readln(n);

t:=0; i:=0;

while n<>0 do

begin

k:=n mod 10;

t:=t+k;

if k mod 2=0 then

begin

inc(i);

a[i]:=k;

end else

begin

inc(j);

b[j]:=k;

end;

n:=n div 10;

end;

writeln('Tong cac chu so cua N la : ',t);

write('Cac so chan trong cac chu so cua N la : ');

if i=0 then write('KHONG CO') else

for l:=i downto 1 do write(a[l],' ');

writeln;

write('Cac chu so le trong cac chu so cua N la : ');

if j=0 then write('KHONG CO') else

for l:=j downto 1 do write(b[l],' ');

readln

end.