viet chuong trinh pascal nhap vao 1 xau, xoa 1 chu so cua a de duoc so tu nhien b lon nhat
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.
Những câu hỏi liên quan
NT
1) Viet chuong trinh nhap xau S1, tao xau S2 bao gom tat ca cac ki tu da xoa het chu so trong xau S1
1
12 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
string s1;
int d,i;
int main()
{
getline(cin,s1);
d=s1.length();
for (i=0; i<=d-1; i++)
if ((s1[i]<48) or (s1[i]>57)) cout<<s1[i];
return 0;
}
23 tháng 6 2016
1.
a, Số đó là 12345678910111213
b, SLN 9101
SBN 1011
2.
5;11;23;47;95;191;383;767
12 tháng 5 2021
uses crt;
var s:string;
ktu:char;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
write('Nhap ki tu:'); readln(ktu);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=ktu then inc(dem);
writeln('So ki tu ',ktu,' trong xau ',s,' la: ',dem);
for i:=1 to d do
if s[i]=ktu then delete(s,i,1);
writeln('Xau sau khi xoa cac ki tu ',ktu,' la: ',s);
readln;
end.
9 tháng 3 2017
giá trị lớn nhất của b là 9314
mk làm được 300/300 đó
hãy k và kb với mk nha
14 tháng 3 2017
Số a là: 1234567891011121314
Số a có tất cả là 19 chữ số. Nếu ta xóa đi 15 chữ số của số a thì số a còn lại số chữ số là: 19 - 15 = 4 ( chữ số)
Vậy số a là số có 4 chữ số.
Để b có giá trị lớn nhất thì ta phải lấy chữ số 9 làm số hàng nghìn
--> Số b là 9314.
27 tháng 3 2017
so do la 12345678910111213
no co 17 chu so
xoa 13 chu so thi con 4 chu so
de y thi no co 5 so 1 va 1 so 0 nen de dat GTNN thi xoa cac so con lai de so 0 dung dau thi ta duoc 0111=111
tuong tu so lon nhat 9101
NT
1
12 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
string s1;
int d,i;
int main()
{
getline(cin,s1);
d=s1.length();
for (i=0; i<=d-1; i++)
if ((s1[i]>=48) and (s1[i]<=57)) cout<<s1[i];
return 0;
}
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