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
Lộc Nguyễn
Xem chi tiết
Nguyễn thành hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:22

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

}

Nguyenthi Tien
Xem chi tiết
Cherry
21 tháng 3 2021 lúc 16:03

 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;

thiên hiền lê
21 tháng 3 2021 lúc 16:30

Hehe,con sâu

Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:49

uses crt;

var st:string;

i,d,kt:integer;

ktu:char;

begin

clrscr;

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

write('Nhap ki tu:'); readln(ktu);

d:=length(st);

kt:=0;

for i:=1 to d do 

  if ktu=st[i] then kt:=1;

if kt=0 then writeln(ktu,' khong co trong xau')

else writeln(ktu,' co trong xau');

readln;

end.

Hoàng Văn
Xem chi tiết
Minh Lệ
20 tháng 4 2021 lúc 15:21

Program HOC24;

var s: string;

i,d: byte;

begin

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

d:=0;

for i:=1 to length(s) do if s[i]=' ' then d:=d+1;

write('Xau ',s,' co ',d,' ki tu cach');

readln

end.

Nguyễn Lê Phước Thịnh
20 tháng 4 2021 lúc 20:51

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(s);

dem:=0;

for i:=1 to d do 

  if s[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

NTKL
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 1 2022 lúc 10:13

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;

}

Kiều Vũ Linh
19 tháng 1 2022 lúc 8:59

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.

LINH VU HA NGOC
Xem chi tiết
THAO PHAM THI THU
Xem chi tiết
TV Cuber
24 tháng 2 2022 lúc 14:13

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.

Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 14:56

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

  if (st[i]='a') then dem:=dem+1;

writeln(dem);

readln;

end.

Khánh Mỹ
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:46

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.

Lala
Xem chi tiết