VCT cho số có 5 chữ số: Cho n là một số nguyên gồm 5 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 5 chữ số tạo thành số n chữ số nào lớn nhất, chữ số nào nhỏ nhất.
(Mình chưa học lệnh While….do hí)
uses crt;
var n,i:longint; s,max,min:string;
begin
clrscr;
write(‘n=’);readln(n);
str(n,s); write(‘So dao nguoc: ‘); min:=’9’;
for i:=1 to 5 do
begin
write(s[5-i+1]);
if s[i]>max then max:=s[i];
if s[i]<min then min:=s[i];
end; writeln;
writeln(‘So lon nhat: ‘,max);
writeln(‘So be nhat: ‘,min);
readln
end.
uses crt;
var a : array[1..100] of integer;
n : int64;
st : string; i : integer;
max, min,code : integer;
begin clrscr;
write(‘Nhap so tu nhien n co 5 chu so :’); readln(n);
str(n,st);
write(‘So dao nguoc cua n la :’);
for i:=length(st) downto 1 do write(st[i]);
for i:=1 to length(st) do val(st[i],a[i],code);
max:=a[1]; min:=a[1];
for i:=1 to length(st) do if a[i] > max then max:=a[i];
for i:=1 to length(st) do if a[i] < min then min:=a[i];
writeln;
writeln(‘So nho nhat trong ‘,n,’ la :’,min);
writeln(‘So lon nhat trong ‘,n,’ la :’,max);
readln
end.