Những câu hỏi liên quan
Ngọc Ánh Phùng
Xem chi tiết
Minh Lệ
6 tháng 3 2023 lúc 23:42

Program HOC24;

var s: string;

i: byte;

begin

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

for i:=1 to length(s) do if (s[i]<>#32) and (s[i] in 'A'..'z') then 

begin

upcase(s[i]); write(s[i]);

end;

readln

end.

Bình luận (1)
Thọ Phạm
Xem chi tiết
Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:35

Bình luận (0)
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 ạ

 

Bình luận (0)
Đặng Duy Hoàng
8 tháng 1 2023 lúc 21:36

Bình luận (0)
Do Ngoc Thao My
Xem chi tiết
Do Ngoc Thao My
Xem chi tiết
Do Ngoc Thao My
Xem chi tiết
Ngô Bá Hùng
16 tháng 4 2023 lúc 20:15

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.

Bình luận (0)
trương thị yến
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 3 2021 lúc 19:10

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do 

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

readln;

end.

Bình luận (0)
Nguyen Ngoc Thien
Xem chi tiết
Bùi Anh Tuấn
16 tháng 3 2021 lúc 20:00

Bình luận (0)
Võ Thị Thái Ngọc
Xem chi tiết