Viết công thức nhập từ bàn phím 1 xâu kí tự s (s<=200) in xâu và nhập ra màn hình
2 câu trả lời
var s:string;
begin
clrscr;
repeat
begin
write('Nhap xau s: ');
readln(s);
end;
until length(s)<=200;
write(s);
readln
end.
uses crt;
var s:string;
begin
clrscr;
repeat
begin
write('Nhap xau s: ');
readln(s);
end;
until length(s)<=200;
write(s);
readln
end.
Câu hỏi trong lớp
Xem thêm
