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 3 2022

căn thẳng lề phải

uses crt;

var st:string;

n,vt,d,i:integer;

begin

clrscr;

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

d:=length(st);

write('Nhap vi tri can xoa:'); readln(vt);

write('Nhap so ki tu can xoa:'); readln(n);

delete(st,vt,n);

writeln('Xau sau khi xoa la: ',st);

readln;

end.

uses crt;

var s:string;

begin

clrscr;

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

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

writeln('Xau sau khi doi la: ',s);

readln;

end.

21 tháng 3 2021

Không chạy đuoc bạn ơi

 

16 tháng 3 2021

22 tháng 10 2021

help me

 

22 tháng 10 2021

Trợ từ: chỉ có

 Có tác dụng nhấn mạnh một sự vật, sự việc, hành động nào đó

5 tháng 6 2020

Program HOC24;

var st,s: string;

a: array[1..255] of string;

d,i,n: integer;

begin

readln(s);

s:=s+' ';

while length(s)<>0 do

begin

st:=copy(s,1,pos(' ',s)-1);

n:=n+1;

a[n]:=st;

delete(s,1,pos(' ',s));

end;

for i:= n downto 1 do write(a[i],' ');

readln

end.