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.

21 tháng 2 2022

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

21 tháng 2 2022

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 

#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;

}

21 tháng 2 2022

có chương trình bằng pascal không ạ

uses crt;

var s1,s2:string;

i,j,d1,d2:integer;

begin

clrscr;

readln(s1,s2);

d1:=length(s1);

d2:=length(s2);

for i:=1 to d1 do 

  if not(s1[i] in ['0'..'9']) then delete(s1,i,1);

for i:=1 to d2 do 

  if not(s2[i] in ['0'..'9']) then delete(s2,i,1);

writeln(s1);

writeln(s2);

writeln(s1+s2);

readln;

end.

uses crt;

var s1,s2:string;

begin

clrscr;

readln(s1,s2);

writeln(s1+s2);

writeln(length(s1+s2));

readln;

end.

20 tháng 2 2023

Để chuẩn hóa xâu kí tự, ta sẽ loại bỏ các ký tự trống ở đầu và cuối xâu, sau đó loại bỏ các ký tự trống kề liền.

Để tìm số lượng kí tự chữ số trong xâu, ta sẽ duyệt qua từng ký tự của xâu và kiểm tra xem ký tự đó có phải là chữ số không.

Code Python để thực hiện yêu cầu đề bài như sau:

pythondef chuan_hoa_xau(s): # Xóa khoảng trắng ở đầu và cuối xâu s = s.strip() # Loại bỏ khoảng trắng kề nhau i = 0 while i < len(s) - 1: if s[i] == ' ' and s[i+1] == ' ': s = s[:i] + s[i+1:] else: i += 1 return s def dem_chu_so(s): count = 0 for c in s: if c.isdigit(): count += 1 return count # Đọc xâu kí tự từ input s = input() # Chuẩn hóa xâu s_chuan = chuan_hoa_xau(s) # Tìm số lượng kí tự chữ số so_luong_chu_so = dem_chu_so(s_chuan) # In ra kết quả print(s_chuan) print(so_luong_chu_so)

Ví dụ:

Input:

csharpThis is an example 1234 string .

Output:

csharpThis is an example 1234 string. 4
24 tháng 8 2021

Program HOC24;

var s,st: string;

i,n,max: integer;

a: array[1..1000] of string;

begin

write('Nhap xau: '); readln(s);

s:=s+' '; n:=1;

while length(s)<>0 do

begin

n:=n+1;

a[n]:=copy(s,1,pos(' ',s));

delete(s,1,pos(' ',s));

end;

max:=length(a[1]);

for i:=2 to n do if max<length(a[i]) then

begin

max:=length(a[i]);

st:=a[i];

end;

write('Tu co do dai lon nhat trong xau la: ',st);

readln

end.

31 tháng 8 2021

var s,st: string;

i,n,max: integer;

a: array[1..1000] of string;

begin

write('Nhap xau: '); readln(s);

s:=s+' '; n:=1;

while length(s)<>0 do

begin

n:=n+1;

a[n]:=copy(s,1,pos(' ',s));

delete(s,1,pos(' ',s));

end;

max:=length(a[1]);

for i:=2 to n do if max<length(a[i]) then

begin

max:=length(a[i]);

st:=a[i];

end;

write('Tu co do dai lon nhat trong xau la: ',st);

readln

end.

const fi='timmax.inp';     

fo='timmax.out';

var f1,f2:text;   

st,xauso:ansistring;   

d,i,max,x:longint;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,st);

d:=length(st);

xauso:='';

max:=0;

for i:=1 to d do 

if st[i] in ['0'..'9'] then xauso:=xauso+st[i] 

else begin         

              val(xauso,x);         

              if max<=x then max:=x;         

              xauso:='';       

        end;

if max=0 then writeln(f2,'-1')

else writeln(f2,max);

close(f1);

close(f2);

end.