Tin học

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoa Nguyen
Xem chi tiết
Trà Mi Liên
Xem chi tiết
Dragon
Xem chi tiết
Minh Lệ
5 tháng 6 2020 lúc 13:56

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.

Tính Lê Thanh
Xem chi tiết
Tính Lê Thanh
Xem chi tiết
Tính Lê Thanh
Xem chi tiết
van pham
Xem chi tiết
Bam Bam
Xem chi tiết
Cậu Bé Ngu Ngơ
Xem chi tiết