Question

[Võ Thị Thái Ngọc]

nhập 1 xâu S từ bàn phím (s<25), đưa ra màn hình xâu St nhưng mỗi kí tự viết trên 1 dòng.

 Giúp e vs.

Answer 1

[phạm quang huy]

program st;

ues crt;

var s:string;i:longint;

begin

 clrscr;

   write('nhap do dai cua xau');readln(s);

    if (s>=25)then

         begin 

             write('nhap lai s nho hon 25');readln(s);

          end;

   for i:=1 to length(s) do writeln(s[i]);

readln;

end.