K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

while st[1]=' ' do 

begin  

delete(st,1,1);

d:=length(st);

end;

while st[d]=' ' do 

begin

delete(st,d,1);

d:=length(st);

for i:=1 to d do 

  if (st[i]=' ' and st[i+1]=' ') then delete(st,i,1);

dem:=0;

for i:=1 to d do 

  if st[i]=' ' then dem:=dem+1;

writeln(dem+1);

readln;

end.

31 tháng 3 2023

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)

10 tháng 3 2022

program ct;

uses crt;

var

s1,s2:string;

begin

clrscr;

write('nhap ho dem: ');

readln(s1);

write('nhap ten: ');

readln(s2);

writeln('ten day du la: ',s1,' ',s2);

readln;

end.

21 tháng 3 2022

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

 

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1,st2);

if st1>st2 then writeln('Xau st1 lon hon')

else if st2>st1 then writeln('Xau st2 lon hon')

else writeln('Hai xau bang nhau');

readln;

end.

28 tháng 3 2022

Chịu thôi, sorry :))