Em chọn biểu tượng Σ góc trái màn hình chọn biểu tượng phân số là được em nhé.

what

program XoaChuSoLonNhat;

var
  s: string;
  i, j, k, vitri: integer;
  soLonNhat: longint;

function ChuanHoa(s: string): string;
var
  i, j: integer;
begin
  for i := 1 to Length(s) do
    if s[i] = '0' then
      Delete(s, i, 1);
  for i := 1 to Length(s) do
    if s[i] = '-' then
      Delete(s, i, 1);
  if s[1] = '+' then
    Delete(s, 1, 1);
end;

function TimViTriLonNhat(s: string): integer;
var
  i, j: integer;
begin
  vitri := 1;
  for i := 2 to Length(s) do
    if s[i] > s[vitri] then
      vitri := i;
end;

function XoaChuSo(s: string; vitri: integer): string;
var
  i: integer;
begin
  Delete(s, vitri, 1);
  for i := vitri to Length(s) do
    Inc(s[i]);
end;

function ChuyenSangSo(s: string): longint;
var
  i, so: integer;
begin
  so := 0;
  for i := 1 to Length(s) do
    so := so * 10 + Ord(s[i]) - Ord('0');
  if s[1] = '-' then
    so := -so;
end;

begin
  Writeln('Nhap xau: ');
  Readln(s);
  s := ChuanHoa(s);

  vitri := TimViTriLonNhat(s);
  soLonNhat := ChuyenSangSo(XoaChuSo(s, vitri));

  Writeln('So lon nhat sau khi xoa 1 chu so: ', soLonNhat);
end

0,25≈0,3

0,25=0,3 ạ~~~~