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.

16 tháng 4 2023

program ChuyenXauSangChuThuong;
var
  str: string; 
  i: integer; 

begin
  write('Nhap mot xau ky tu: ');
  readln(str); 
  for i := 1 to Length(str) do
    str[i] := LowerCase(str[i]); 
  writeln('Xau ky tu chuyen thanh chu thuong la: ', str); 
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

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.

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

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

d:=length(s);

for i:=1 to d do 

  if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);

writeln('Xau sau khi xoa het ki tu chu la: ',s);

readln;

end.

16 tháng 3 2021

Program HOC24;

var s: string;

x: char;

d: byte;

begin

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

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

d:=0;

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

if d=0 then write('Ki tu do khong xuat hien trong xau') else write('Ki tu do xuat hien trong xau');

readln

end.

Cô ơi, cô chưa khai báo biến i thưa cô

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i,dem;

int main()

{

getline(cin,st);

d=st.length();

cout<<d<<endl;

dem=0;

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

if (st[i]=="A")

{

cout<<i<<" ";

dem++;

}

cout<<endl;

cout<<dem;

return 0;

}

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.