K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

20 tháng 5

Nếu muốn giải đc bài này ta cần phải bt bán là gì.

cách giải :

ta lấy bán kính nhân bán kính và nhân với 3,14.

 

21 tháng 5

Nhầm môn rồi em

19 tháng 5

Giúp mình đi minh cho 5 sao pls

19 tháng 5

đầu vào:chiều dài a

              chiều rộng b

đầu ra:a\(\times\)b

20 tháng 5

Điểm giống nhau giữa cấu trúc rẽ nhánh và cấu trúc lặp là cả hai đều điều khiển luồng thực thi của chương trình, cho phép chương trình có thể thực hiện các hành động khác nhau dựa trên các điều kiện cụ thể.

18 tháng 5

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é.

30 tháng 5

Ở đâu vậy cô/thầy?

 

18 tháng 5

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

30 tháng 5

nhầm môn rồi bạn ơi