Question

[Sha Dow]

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

[Minh Lệ]

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

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

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.