Viết chương trình nhập một chuỗi bất kỳ In ra mỗi từ đó trên một dòng
2 câu trả lời
program pht;
uses crt;
var s: string;
i: integer;
begin
clrscr;
write('Nhap chuoi s: '); readln(s);
for i:=1 to length(s) do writeln(s[i]);
readln
end.
uses crt;
var s:string; i:byte;
begin
clrscr;
readln(s);
for i:=1 to length(s) do writeln(s[i]);
readln
end.
Câu hỏi trong lớp
Xem thêm
