viết chương trình nhập 2 xâu S1,S2 không quá 100 ký tự . hãy
a) tính đọ dài 2 xâu S1,S2
b)so sánh số ký tự 'g' trong 2 xâu S1,S2
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
10 tháng 7 2021
uses crt;
var s,s1,s2:string;
i,d:integer;
begin
clrscr;
readln(s);
s1:='';
s2:='';
d:=length(s);
for i:=1 to d do
begin
if s[i] in ['0'..'9'] then s1:=s1+s[i];
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];
end;
writeln('Xau chua cac ki tu so la: ',s1);
writeln('Xau chua cac ki tu chu la: ',s2);
readln;
end.
9 tháng 4 2021
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
9 tháng 4 2021
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
15 tháng 3 2022
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i]='a') or (st[i]='A') then st[i]:='b';
writeln(st);
readln;
end.
26 tháng 2 2022
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.
B
3 tháng 3 2021
Chương trình:
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
3 tháng 3 2021
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
dem:=0;
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln(dem);
readln;
end.
TM
3 tháng 3 2021
Chương trình:program bai_10_chuong_4;uses crt;vars: string[100];i, dem: integer;Beginclrscr;write('Nhap xau vao:'); readln(s); dem:= 0;for i:= 1 to length(s) doif ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;Writeln('Trong xau s co '»dem,' chu so thap phan');readln;End.
30 tháng 12 2020
uses crt;
var st:string[50];
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i] in ['a'..'z'] then write(st[i]:4);
readln;
end.
9 tháng 3 2023
uses crt;
var s1,s2:string;
begin
clrscr;
readln(s1,s2);
insert(s1,s2,5);
writeln(s2);
readln;
end.
var i,g1,g2:longint;
s1,s2:string;
begin
readln(s1);
readln(s2); //Nhập vào xâu s1 và s2.
writeln(length(s1)); //Hàm length là hàm tính độ dài của xâu, writeln độ dài của xâu s1.
writeln(length(s2)); //writeln độ dài của xâu s2.
for i:=1 to length(s1) do
if s1[i]='g' then
inc(g1); //nếu có một phần tử của s1 là 'g' thì cộng vào biến đếm g1.
for i:=1 to length(s2) do
if s2[i]='g' then
inc(g2);
if g1<>g2 then
if g1>g2 then writeln('xau s1 co nhieu ki tu g hon xau s2.')
else writeln('xau s1 co it ki tu hon xau s2.')
else writeln('xau s1 co so ki tu g bang xau s2.')
end.
uses crt;
var s1,s2:string[100];
d1,d2,dem,dem1,i,j:integer;
begin
clrscr;
write('nhap xau S1:'); readln(s1);
write('nhap xau S2:'); readln(s2);
d1:=length(s1);
d2:=length(s2);
writeln('do dai xau S1 la: ',d1);
writeln('do dai xau S2 la: ',d2);
writeln;
dem:=0;
dem1:=0;
for i:=1 to d1 do
if s1[i]='g' then inc(dem);
for j:=1 to d2 do
if s2[j]='g' then inc(dem1);
if dem>dem1 then writeln('trong xau s1 co nhieu ky tu g hon xau s2');
if dem1>dem then writeln('trong xau s2 co nhieu ky tu g hon xau s1');
readln;
end.