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

Phan thị lê na
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2021 lúc 12:40

1:

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

Nguyễn Lê Phước Thịnh
6 tháng 4 2021 lúc 12:42

3:

const fi='dl.txt'

fo='kq.txt'

var f1,f2:text;

a:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a);

writeln(f2,a);

close(f1);

close(f2);

end.

Nguyễn Lê Phước Thịnh
6 tháng 4 2021 lúc 12:41

2:

uses crt;

var st:string;

d:integer;

begin

clrscr;

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

d:=length(st);

while st[1]=#32 do 

  begin

delete(st,1,1);

d:=length(st);

end;

while st[d]=#32 do 

  begin

delete(st,d,1);

d:=length(st);

end;

writeln(st);

readln;

end.

Hoàng Đào
Xem chi tiết
ttanjjiro kamado
13 tháng 2 2022 lúc 12:28

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

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

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

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

writeln('Xau c la: ',c);

readln;

end.

Huyên Lê Thị Mỹ
Xem chi tiết
Kiều Vũ Linh
10 tháng 5 2023 lúc 21:03

Var s,st:string;

i:integer;

Begin

Write('Nhap xau ');readln(s);

For i:=1 to length(s) do

If s[i] in ['0'..'9'] then st:=st+s[i];

Write('Cac ki tu so co trong day la ',st);

Readln

End.

Huyên Lê Thị Mỹ
10 tháng 5 2023 lúc 20:29

giúp em với ạ em cảm ơn nhìuu

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.

Anh Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:20

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. 

Tống minh quân
Xem chi tiết
NGUYỄN VIẾT LUẬN
Xem chi tiết
Lương Ngọc Anh
Xem chi tiết
Phía sau một cô gái
31 tháng 3 2023 lúc 20:25

Câu 1:

ho_ten = input("Nhập họ tên: ")

tach_ho_ten = ho_ten.split()

if len(tach_ho_ten) > 1:

     ten = tach_ho_ten[-1]

     print("Tên của bạn là:", ten)

else:

     print("Nhập sai định dạng họ tên")

Câu 2: 

s = input("Nhập xâu: ")

hoa = s.upper()

print(hoa)