Lập trình nhập từ bàn phím xâu kí tự chữ cái s (|s| ≤ 100000). In ra màn hình xâu đó sau khi sắp xếp vị trí các kí tự theo thứ tự: chữ cái in hoa giảm dần rồi đến chữ cái in thường giảm dần.Dữ liệu...

LT

Lê Thị Vân Giang

10 tháng 7 2023

Lập trình nhập từ bàn phím xâu kí tự chữ cái s (|s| ≤ 100000). In ra màn hình xâu đó sau khi sắp xếp vị trí các kí tự theo thứ tự: chữ cái in hoa giảm dần rồi đến chữ cái in thường giảm dần.Dữ liệu nhập: - Một xâu kí tự S duy nhấtKết quả: - in ra màn hình xâu sau khi sắp...

Đọc tiếp

#Tin học lớp 8

0

TN

Trung Nguyễn

5 tháng 5 2022

Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa

#Tin học lớp 11

1

LD

Lê Đình Quý

16 tháng 3 2023

Program Xau;

Uses crt;

Var St: String;

i: longint;

Begin

Clrscr;

Write('Nhap xau: '); Readln(St);

For i:=1 to length(St) do

St[i] := Upcase(St[i]);

Write('St = ',St);

Readln

End.

Đúng(0)

NN

Nguyen Ngoc Thien

15 tháng 3 2021

viết chương trình nhập một xâu từ bàn phím đưa ra màn hình xâu đó sau khi đã chuyển tất cả các kí tự đầu của mỗi từ thành chữ cái in hoa

#Tin học lớp 11

1

BA

Bùi Anh Tuấn

16 tháng 3 2021

Đúng(2)

NV

Nguyễn Vy

9 tháng 5 2021

Viết chương trình nhập một xâu từ bàn phím (xâu nhập vào có kí tự chứ cái in, chữ cái thường và kí tự số) Yêu cầu:lọc và in các chữ cái thường có trong xâu

#Tin học lớp 11

1

ML

Minh Lệ

10 tháng 5 2021

Program HOC24;

var s: string;

begin

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

write('Xau sau khi loc: ');

for i:=1 to length(s) do

if s[i] in ['A'..'z'] then write(s[i]);

readln

end.

Đúng(0)

LN

Long Nhi

23 tháng 4 2021

Viết chương trình: - Nhập một xâu A (không quá 50 kí tự) bàn phím; - Tạo một xâu B chỉ chứa các kí tự là các chữ cái in hoa có trong xâu A và in xâu B ra màn hình;

#Tin học lớp 11

1

NL

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

23 tháng 4 2021

uses crt;

var a,b:string;

i,d:integer;

begin

clrscr;

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

d:=length(a);

b:='';

for i:=1 to d do

if a[i] in ['A'..'Z'] then b:=b+a[i];

writeln(b);

readln;

end.

Đúng(1)

TL

Trang Le

16 tháng 12 2022

Viết chương trình nhập sâu S không quá 255 kí tự, rồi xuất ra màn hình xâu chữ cái in hoa và chữ cái thường

#Tin học lớp 11

1

ML

Minh Lệ

17 tháng 12 2022

Program HOC24;

var s: string;

i: byte;

begin

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

write('Cac chu cai in hoa: ');

for i:=1 to length(s) do if s[i] in ['A'..'Z'] then write(s[i],' ');

writeln;

for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(s[i],' ');

readln

end.

Đúng(0)

AT

Anh Thư

10 tháng 4 2021

Bài tập 2:Viết chương trình nhập một xâu từ bàn phím. Đếm số kí tự là chữ số chữ cái trong xâu vừa nhập và in ra màn hình. Xóa các chữ số kh xâu vừa nhập

#Tin học lớp 11

1

NL

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

10 tháng 4 2021

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.

Đúng(2)

NN

Nguyễn Nhật Lệ

14 tháng 4 2021

Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa và chữ thường) có trong xâu.

#Tin học lớp 11

1

NL

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

14 tháng 4 2021

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

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

d:=length(st);

dem:=0;

for i:=1 to d do

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

writeln(dem);

readln;

end.

Đúng(1)

NC

Nguyễn Cảnh Hùng

25 tháng 2 2018

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là chữ cái (chữ thường) có trong xâu.

#Tin học lớp 11

1

DN

Đỗ Ngọc Trinh

25 tháng 2 2018

Var a: string;

i, Dem: integer;

Begin

writeln(‘nhap xau:’);

Readln(a);

Dem:=0;

For i:=1 to length(a) do

If (‘a’<=a[i]) and (a[i]<=’z’)

Dem:= Dem+1;

Writeln(Dem);

Readln

End.

Đúng(1)

NC

Nguyễn Cảnh Hùng

20 tháng 8 2019

Viết chương trình:

Nhập vào một xâu kí tự.

Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.

#Tin học lớp 11

1

DN

Đỗ Ngọc Trinh

20 tháng 8 2019

Var a: string;

i, Dem: integer;

Begin

writeln(‘nhap xau:’);

Readln(a);

Dem:=0;

For i:=1 to length(a) do

If (‘A’<=a[i]) and (a[i]<=’Z’) then

Dem:= Dem+1;

Writeln(Dem);

Readln

End.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP