bai tap tin (b3)

program b3;
var
a:string;
b:string;
c:string;
i:integer;
begin
write('Nhap xau a: ');
readln(a);
b:='';
for i:=length(a) downto 1 do b:=b+a[i];
c:=''
for i:=1 to length(a) do c:=c+upcase(a[i]);
writeln('xau doi xung cua a la: ',b);
writeln('xau a sau khi chuyen thanh chu in hoa la ',c);
readln
end.


Pài nài Q test roài. Chúc pà con kt 1 tiết tốt.

thank bạn Quang nhìu nhắm nhắm.

cái đề đâu dzậy Q

ah, bài thực hành chiều hôm bữa đó

roài dc roài mấy bữa có ai làm bài 1 tiết tin dc hông

Q làm tàm tạm