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.

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

readln(st);

dem:=0;

d:=length(st);

for i:=1 to d do 

 if st[i] in ['0'..'9'] then dem:=dem+1;

writeln(dem);

readln;

end.

2:

uses crt;

var st:string;

d,i,dem1,dem2:integer;

begin

clrscr;

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

d:=length(st);

dem1:=0;

dem2:=0;

for i:=1 to d do

  begin

if st[i] in ['0'..'9'] then inc(dem1);

if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);

end;

writeln('So ki tu la chu so la: ',dem1);

writeln('So ki tu la chu cai la: ',dem2);

for i:=1 to d do 

  if st[i] in ['0'..'9'] then delete(st,i,1);

writeln('Xau sau khi xoa cac chu so la: ',st);

readln;

end. 

23 tháng 3 2023

Program HOC24;

var i,d: byte;

s: string;

begin

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

d:=0;

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

write('Co ',d,' ki tu so trong xau');

readln

end.

25 tháng 7 2021

cau 1:

uses crt;

var a:array[1..100] of integer;

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

if min>a[i] then min=a[i];

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT';

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

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

writeln(g,s);

end.

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;

}

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.

24 tháng 12 2022

uses crt;

var st:string;

dem,i,d:integer;

begin

clrscr;

readln(st);

dem:=0;

d:=length(st);

for i:=1 to d do

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

write(dem);

readln;

end.