Bài 49:
program so_max;
uses crt;
var s:string;
i,max,so,vt:byte;
begin
clrscr;
write('Nhap so: '); readln(s);
max:=0; vt:=1;
for i:=1 to length(s) do
begin
val(s[i],so);
if so>max then
begin
max:=so;
vt:=i;
end;
end;
writeln('Chu so lon nhat la: 'max)
write('Chi so nho nhat la: ',vt);
readln;
end.
Bài 50
program so_min;
uses crt;
var s:string;
i,min,vt,so:byte;
begin
clrscr;
write('Nhap so: '); readln(s);
min:=9; vt:=1;
for i:=1 to length(s) do
begin
val(s[i],so);
if so<=min then
begin
min:=so;
vt:=i;
end;
end;
writeln('Chu so nho nhat la: ',min);
write('Vi tri lon nhat la: ',vt);
readln;
end.
Bài 51: (Nếu số cuối là 0 thì vẫn in số 0 ở đầu: vd: 810 đảo là 018)
program dao_so;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
write('Nhap so: '); readln(s);
st:='';
for i:=length(s) downto 1 do
st:=st+s[i];
write('So dao la: ',st);
readln;
end.
Bài 51: (Nếu số cuối là 0 thì không in số 0 ở đầu: vd: 810 đảo là 18)
program dao_so;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
write('Nhap so: '); readln(s);
st:='';
for i:=length(s) downto 1 do
st:=st+s[i];
while st[1]='0' do delete(s,1,1);
write('So dao la: ',st);
readln;
end.
