Viết chương trình nhập một xâu bất kì , rồi đếm xem xâu đó có bao nhiêu số 8 liên tiếp.nếu không có in ra 0.
Vd
Inp 44487878
Outp 0
Vd2
Inp 5488888888
Outp 8
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
20 tháng 4 2022
const fi='demxau.inp',
fo='demxau.out';
var f1,f2:text;
st:string;
d,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(f2,dem+1);
close(f1);
close(f2);
end.
18 tháng 1 2022
Bài 2:
#include <bits/stdc++.h>
using namespace std;
string st;
int d;
int main()
{
getline(cin,st);
d=st.length();
cout<<d;
return 0;
}
KV
19 tháng 1 2022
Bài 1:
Var so,i,n,dem:integer;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(so);
If so mod 2 = 0 then dem:=dem+1;
End;
Write('Co ',dem,' so chan');
Readln;
End.
Bài 2:
Var st:string;
Begin
Write('Nhap vao xau ki tu ');readln(st);
Write(' Xau vua nhap co do dai la ',length(st));
Readln;
End.
ML
3 tháng 4 2021
Program HOC24;
var S: string;
d,i: byte;
begin
write('S= '); readln(s);
For i:= length(s) downto 1 do write(s[i]);
writeln;
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
while s[1]=#32 do delete(s,1,1);
d:=0;
for i:=1 to length(s) do d:=d+1;
write('So tu :',d);
readln
end.
3 tháng 4 2021
uses crt;
var s:string[200];
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
d:=length(s);
write('Xau viet theo chieu nguoc la: ');
for i:=d downto 1 do
write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('So tu la: ',dem);
readln;
end.
D
datcoder
CTVVIP
18 tháng 10 2023
a) Ban đầu đề A là số còn B là xâu sao trong yêu cầu lại đổi vị trí cho nhau vậy nhỉ?
b) Xâu thay thế cái gì bạn, hình như đề còn thiếu bạn kiểm tra lại nhé.
L
18 tháng 10 2023
Viết chương trình C++ nhập vào 1 xâu A bất kì và một xâu B a) kiểm tra xem xâu B có trong xâu A không b)Nếu có thì thay thế tất cả các xâu B trong A bằng xâu "ABC".In ra màn hình dòng thứ nhất là kết quả của câu a, dòng thứ hai là kết quả của xâu sau khi thay thế.
( Dạ, sửa lại rồi ạ! )
1 tháng 5 2021
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
1 tháng 5 2021
Câu 2:
uses crt;
const fi='kq.out';
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
KV
9 tháng 5 2022
Var st:string;
i,dem:integer;
Begin
Write('Nhap xau ky tu ');readln(st);
For i:=1 to length(st) do
If st[i] = 'a' then dem:=dem+1;
Write('So ky tu a co trong xau la ',dem);
Readln;
End.
program Xau219;
uses crt;
Var S:String;
dem, max, i:Byte
begin
clrscr;
Write ('Nhap xau:'); Readln (S);
max:=0; dem:=0; S:=S+'';
For i:=1 to Length (S) do
begin
If S[i] ='8' then dem:=dem+1
else
If max<them then
begin max:=dem; dem:=0; end;
end;
Writeln('Ket qua:'max);
readln;
end.
Làm bằng pos đc ko ạ