Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Thị Hòa
Xem chi tiết
Anh Phạm
25 tháng 7 2021 lúc 20:51

uses crt;

var s:string;

i,tong,x,code:integer;

f,g:text;

k:boolean;

const fi='XAU.INP'

          fo='XAU.OUT'

begin

k:=false;

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,s);

tong:=0;

for i:=1 to length(s) do

begin

if s[i] in ['0'..'9'] then

begin

k:=true;

val(s[i],x,code);

tong:=tong+x;

x:=0;

cod:=0;

end;

end;

if k=false then writeln(g,'Sai yeu cau')

else

begin

writeln(g,s);

writeln(g,tong);

end;

close(f);

close(g);

end.

Park Mineun
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 8:49

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i;

int main()

{

getline(cin,st);

d=st.length();

for (i=0; i<=d-1; i++)

if (48<=st[i] && st[i]<=57) st.erase(i,1);

cout<<st;

return 0;

}

có test mẫu ko bạn ??

Long ca ca
Xem chi tiết
Long ca ca
20 tháng 8 2023 lúc 19:18

Làm bằng pascal nha

 

Mình Tên Ken :3
Xem chi tiết
Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 11:59

zời zăm ba cái program:>

Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 12:05

PROGRAM XAU;

USES crt;

VAR N1 ; N2 : String;

          a ; i :Bytbe;

BEGIN

     clrscr;

     write(' Nhap xau N1:') ; Readln(N1);

     N2:='  '

     for i:=1 to Length(N1) do

        If ( 'a'<=N1

moa cai dau doi ty qua kia lam 

Đỗ Tuệ Lâm
21 tháng 2 2022 lúc 12:09

{PROGRAM XAU;

USES crt;

VAR N1 ; N2 : String;

          a ; i :Bytbe;

BEGIN

     clrscr;

     write(' Nhap xau N1:') ; Readln(N1);

     N2:='  '

     for i:=1 to Length(N1) do

        If ( 'a'<=N1[i]) and (N2[i]<='z')then
        N2:=N2+N1[i];
       Write ('Xau moi',N2);
      Readln;
end.      

}

Long ca ca
Xem chi tiết
Phía sau một cô gái
21 tháng 8 2023 lúc 20:49

program XoaSoLienTuc;

uses sysutils;

function XoaSoLienTuc(S: string): string;

var

     i: integer;

     result: string;

begin

     result := ''

     for i := 1 to Length(S) do

     begin

          if not (S[i] in ['0'..'9']) then

          begin

               if (i = 1) or (S[i-1] in ['0'..'9']) then

                    result := result + ' '

               result := result + S[i];

          end;

     end;

     result := Trim(result);

     result := StringReplace(result, ' ', '', [rfReplaceAll]);

     XoaSoLienTuc := result;

end;

var

     S: string;

begin

     write('Nhập vào xâu S: ');

     readln(S);

     writeln('Kết quả: ', XoaSoLienTuc(S));

end.

Mình Tên Ken :3
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2022 lúc 22:48

#include <bits/stdc++.h>

using namespace std;

string a[1000],t,ln;

int n,i;

int main()

{

cin>>n;

for (i=1;i<=n; i++) cin>>a[i];

ln=''

for (i=1; i<=n; i++) if (ln<a[i]) ln=a[i];

t=''

for (i=1; i<=n; i++) t=t+a[i];

cout<<ln<<" "<<t;

return 0;

}

Lan Anh
Xem chi tiết
Hello1234
Xem chi tiết
Kiều Vũ Linh
27 tháng 3 2022 lúc 10:26

var s:string;

i:integer;

begin

write('Nhap xau ki tu S = ');readln(s);

for i:=1 to length(s) do

begin

if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);

i:=length(s);

end;

readln;

end.

Làm Thanh
Xem chi tiết
Ánh Nguyệt Thiên Vĩ
Xem chi tiết