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.

26 tháng 7 2023

program tach_ho_ten;

uses crt;

var

     s, ho_dem, ten: string;

     i, vt: integer;

begin

     write('Nhap xau s: ');

     readln(s);

     vt := 0;

     for i := length(s) downto 1 do

     begin

          if s[i] = ' ' then

          begin

               vt := i;

               break;

          end;

     end;

     ho_dem := copy(s, 1, vt-1);

     ten := copy(s, vt+1, length(s)-vt);

     writeln('Ho dem: ', ho_dem);

     writeln('Ten   : ', ten);

     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.

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i;

int main()

{

getline(cin,st);

d=st.length()

for (i=0; i<=d-1; i++)

if (('a'<=st[i]) and (st[i]<='z')) st[i]=st[i]+32;

for (i=0; i<=d-1; i++)

cout<<st[i];

return 0;

}

D
datcoder
Giáo viên
19 tháng 12 2023

Program HOC24;

var s: string;

i,x: byte;

begin

readln(s);

//-----------Câu a

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,1);

writeln(s);

//-------------Câu b

s[1]:=upcase(s[1]);

for i:=1 to length(s) do

if s[i]=#32 upcase(s[i+1]);

writeln(s);

//--------------Câu c

for i:=1 to length(s) do

if s[i]=#32 then x:=i;

for i:=x+1 to length(s) do

write(s[i]);

//---------------------------

readln

end.

28 tháng 3 2022

Chịu thôi, sorry :))