GIÚP TÔI VỚI
Cho n là một số nguyên gồm 3 chữ số. Hãy viết chương trình nhập vào từ bàn phím số n rồi thực hiện các công việc sau:
In ra màn hình số đảo ngược của số n.
Tìm xem trong ba chữ số tạo thành số n chữ số nào lớn nhất, chữ số nào nhỏ nhất.
Ví dụ: Nhập vào số n = 739
Kết quả in ra màn hình số đảo ngược của số n là: 937
Chữ số lớn nhất trong ba số tạo thành số n là 9.
Chữ số nhỏ nhất trong ba số tạo thành số n là 3.
program ct;
uses crt;
var n,t,a,b,c,min,max:integer;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
t:=n;
while t<>0 do
begin
a:=a+t mod 10;
t:=t div 10;
b:=b+t mod 10;
t:=t div 10;
c:=c+t mod 10;
t:=t div 10;
end;
max:=a; min:=a;
if b>max then max:=b;
if c>max then max:=c;
if b<min then min:=b;
if c<min then min:=c;
writeln(‘So dao nguoc cua so ‘,n,’ la: ‘,a,b,c);
writeln(‘Chu so lon nhat trong ba so la: ‘,max);
writeln(‘Chu so lon nho trong ba so la: ‘,min);
readln;
end.
Học tốt!
uses crt;
var n,max,min:string; i:longint;
begin
clrscr;
write(‘Nhap vao so n:’);readln(n); min:=’9′;
write(‘So dao nguoc cua n la: ‘);
for i:=3 downto 1 do
begin if n[i]>max then max:=n[i];
write(n[i]); if n[i]<min then min:=n[i]; end; writeln;
writeln(‘So lon nhat trong ba so tao thanh n la: ‘,max);
writeln(‘So be nhat trong ba so tao thanh n la: ‘,min);
readln
end.