a. Viết chương trình nhập vào 1 xâu bất kì xuất ra độ dài cùa xâu và số kí tự trống.b. Viết chương trình nhập vào một xâu bất kì xuất ra xâu đảo ngượcc.Viết chương trình nhập vào một xâu bất kì xuất r...

0

YK

Yone Kaido

23 tháng 3 2021

Viết chương trình nhập vào 1 xâu bất kì, xuất ra màn hình số lượng kí tự trong xâu đã nhập.

mọi người giúp mk bài này với.

2

C

Cherry

23 tháng 3 2021

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;

NL

Nguyễn Lê Phước Thịnh

24 tháng 3 2021

uses crt;

var st:string;

begin

clrscr;

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

writeln(length(st));

readln;

end.

Viết chương trình nhập vào 1 xâu kí tự ( độ dài ko quá 100) và 1 kí tự bất kì từ bàn phím .Thông báo xem kí tự đó có xuất hiện trong xâu kí tự vừa nhập hay ko?

TT

Thiên Thiên

16 tháng 3 2021

1

ML

Minh Lệ

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.

NL

Nguyễn Lê Phước Thịnh

16 tháng 3 2021

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

Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình Xâu đó sau khi xoá sốTrong xâu có bao nhiêu dấu cáchĐưa ra màn hình độ dài xâu đóCâu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn...

ᝰᦔꫀꪑꪮꪀ

1 tháng 5 2021

Đọc tiếp

3

NL

Nguyễn Lê Phước Thịnh

1 tháng 5 2021

Câu 1:

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

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

d:=length(st);

write('Xau sau khi xoa so la: ');

for i:=1 to d do

if not(st[i] in ['0'..'9']) then write(st[i]);

writeln;

dem:=0;

for i:=1 to d do

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

writeln('Xau co ',dem,' dau cach');

writeln('Do dai cua xau la: ',d);

readln;

end.

Đúng(2)

NL

Nguyễn Lê Phước Thịnh

1 tháng 5 2021

Câu 2:

uses crt;

const fi='kq.out';

var st1,st2:string;

f1:text;

begin

clrscr;

write('Nhap xau thu 1:'); readln(st1);

write('Nhap xau thu 2:'); readln(st2);

assign(f1,fi); rewrite(f1);

if length(st2)>length(st1) then writeln(f1,st2)

else writeln(f1,st1);

close(f1);

end.

1L

10B Lớp

1 tháng 3 2023

viết chương trình nhập vào 1 xâu bất kì tách xâu đó thành 2 xâu tương đương nhau về độ dài và đưa ra xâu có độ dài lớn hơn Thonny

#Tin học lớp 10

0

KM

Khánh Mỹ

3 tháng 3 2021

Viết chương trình nhập vào một xâu ký tự S từ bàn phím. Xuất xâu đã nhập. Tạo xâu đảo ngược P từ xâu đã nhập. Xuất xâu P ra màn hình

2

DN

Dương Ngọc Nguyễn

3 tháng 3 2021

Use crt;

Var S : String;

P: longint;

Begin

Write('Nhap s: '); readln (S);

For P:=length(S) downto 1 do

Write(P);

Readln;

End.

Đúng(2)

NL

Nguyễn Lê Phước Thịnh

3 tháng 3 2021

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

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

writeln('Xau nguoc la: ');

for i:=d downto 1 do

write(st[i]:4);

readln;

end.

LA

Lan Anh

18 tháng 3 2021

viết chương trình nhập 1 xâu bất kì từ bàn phím ,đưa ra màn hình xâu sau khi xoá n kí tự từ vị trí bất kì

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 3 2021

uses crt;

var st:string;

n,vt,d,i:integer;

begin

clrscr;

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

d:=length(st);

write('Nhap vi tri can xoa:'); readln(vt);

write('Nhap so ki tu can xoa:'); readln(n);

delete(st,vt,n);

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

readln;

end.

VT

Vương Thế Tài

18 tháng 1 2022

Viết chương trình nhập vào bàn phím 2 xâu bất kì so sánh độ dài 2 xâu đưa ra màn hình xâu ngắn hơn sau đó chuyển xâu ngắn hơn sang dạng chữ hoa

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

string st1,st2;

int d1,d2;

int main()

{

cin>>st1>>st2;

d1=st1.length();

d2=st2.length();

if (d1<d2) cout<<st1;

else cout<<st2;

return 0;

}

NT

Nguyễn Thị Diễm Hạnh

23 tháng 3 2023

Viết chương trình nhập xâu bất kì từ bàn phím. Đếm các kí tự số trong xâu vừa nhập

1

ML

Minh Lệ

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.

NH

nhat hoang

28 tháng 4 2023

Nhập vào xâu kí tự bất kì. Cho biết trong xâu có bao nhiêu từ ( yêu cầu chương trình sử dụng chương trình con )