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
Thọ Phạm
Xem chi tiết
Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:35

Huy Lê Đình
Xem chi tiết
Huy Lê Đình
21 tháng 3 2022 lúc 16:56

Cho em lời giải với ạ em đang thi ạ

 

Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:36

Nguyen Ngoc Thien
Xem chi tiết
Bùi Anh Tuấn
16 tháng 3 2021 lúc 20:00

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

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] in ['a'..'z'] then upcase(st[i]);

writeln(st);

readln;

end.

Nguyễn Thảo Vy
Xem chi tiết
Lê Gia Hiếu
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 5 2022 lúc 20:49

uses crt;

const fi='vb.txt'

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

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

readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i] in ['A'..'Z'] then write(f1,st[i]:4);

close(f1);

readln;

end.

Lê Đình Quý
Xem chi tiết
Minh Lệ
16 tháng 3 2023 lúc 22:07

Program HOC24;

var s1,s2: string;

i: byte;

begin

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

s1:=''

for i:= length(s) downto 1 do

if s[i] in ['A'..'Z'] then s1:=s1+s[i];

write('Xau S1 : ',s1);

readln

end.