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.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

string st;

char ktu;

int dem,i,d;

int main()

{

getline(cin,st);

cin>>ktu;

d=st.length();

dem=0;

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

if (st[i]==ktu) dem++;

cout<<dem;

return 0;

}

24 tháng 2 2022

tham khảo

 

uses crt;

var a:string;

i,d,dem:integer;

begin

clrscr;

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

dem:=0;

d:=length(a);

for i:=1 to d do

if a[i]=' ' then inc(dem);

writeln(dem);

readln;

end.

24 tháng 2 2022

tks b

 

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

writeln('Xau vua nhap la: ',st);

for i:=1 to d do 

  if st[i] in ['a'..'z'] then upcase(st[i]);

writeln(st);

readln;

end.

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.

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;

}

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.

21 tháng 3 2021

 câu 1 Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte

; i:Byte;

ch:Char;

Begin Write(‘Nhap xau St: ‘);

Readln(St);

{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

21 tháng 3 2021

Hehe,con sâu