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
Khánh Mỹ
Xem chi tiết
Buddy
3 tháng 3 2021 lúc 14:53

Chương trình:

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

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

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

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

dem:=0;

for i:=1 to d do 

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

writeln(dem);

readln;

end.

Nguyễn Thị Mỹ Tiền
Xem chi tiết
Minh Hậu Ngô
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:31

2:

#include <bits/stdc++.h>

using namespace std;

string st1,st2;

int d1,d2;

int main()

{

getline(cin,st1);

getline(cin,st2);

d1=st1.length();

d2=st2.length();

if (d1>d2) cout<<st1;

else cout<<st2;

return 0;

}

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

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]=#32 then delete(st,i,1);

writeln('Xau moi la: ',st);

readln;

end.

Trần Văn Hiện
Xem chi tiết
Bùi Anh Tuấn
14 tháng 3 2021 lúc 20:22

trần thu lan
Xem chi tiết
Dao Vo
Xem chi tiết
Phạm Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 3 2022 lúc 22:45

uses crt;

var st:string;

i,dem:integer;

begin

clrscr;

readln(st);

writeln(length(st));

for i:=5 to 8 do write(st[i]);

writeln;

dem:=0;

for i:=1 to length(st) do 

  if st[i]='b' then dem:=dem+1;

writeln(dem);

readln;

end.

LINH VU HA NGOC
Xem chi tiết