Viết chương trình pascal nhập vào tên của em và chiều ngược lại. (Sử dụng kiểu mảng )
2 câu trả lời
uses crt;
var i,n:byte;
a:array[0..300] of char;
begin
clrscr;
repeat
inc(n);read(a[n]);
until a[n]=#13;
for i:=1 to n do write(a[n-i+1]); //mau` :))
readkey;
end.
uses crt;
var n,i:longint; a:array[1..100000]of char;
begin
clrscr;
write('Nhap vao ho ten cua em: ');
repeat
inc(n); read(a[n]);
until a[n]=#13;
for i:=n downto 1 do write(a[i]);
readln
end.
Câu hỏi trong lớp
Xem thêm
