Viết chương trình nhập vào từ bàn phím số nguyên dương N có 3 chữ số.
a/ In ra từng chữ số.
b/ In ra tổng các chữ số.
c/ In ra chữ số lớn nhất và vị trí của nó.
d/ In ra số đảo ngược của số N.
e/ Sắp xếp các chữ số của số N để tạo thành một số có ba chữ số lớn nhất có thể.
program so_3chuso;
uses crt;
var A:array [1..3] of byte;
n:integer;
i,max,t,vt,j,tg:byte;
begin
clrscr;
write(‘Nhap so N: ‘); readln(n);
i:=0; t:=0;
while n>0 do
begin
i:=i+1;
A[i]:=n mod 10;
n:=n div 10;
t:=t+A[i];
end;
writeln(‘a. Tung chu so la: ‘,A[3],’ ‘,A[2],’ ‘,A[1]);
writeln(‘b. Tong cac chu so la: ‘,t);
max:=A[1]; vt:=1;
if A[2]>max then
begin
max:=A[2];
vt:=2;
end;
if A[3]>max then
begin
max:=A[3];
vt:=3;
end;
writeln(‘c. So lon nhat la ‘,max,’ va vi tri la: ‘,vt);
writeln(‘d. So dao nguoc la: ‘,A[1],A[2],A[3]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if A[i]<A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
writeln(‘e. So lon nhat co the la: ‘,A[1],A[2],A[3]);
readln;
end.