[Tin11] Bài tập pascal

M

megamanxza

Bài này dễ lắm bạn ạ!

Uses crt;
var st: string;
i: integer;
begin
clrscr;
write ('Nhap xau: '); readln (st);
clrscr;
for i:= 1 to length(st) do writeln (st);
readln
end.

Good Luck for you! Nhấn Thanks và đúng cho mình nha!;);););)
 
Top Bottom