Nhập vào bàn phím một xâu đưa ra màn hình xâu đó với nội dung học, học nữa học mãi
2 câu trả lời
program ct;
uses crt;
var s:string;
begin
clrscr;
write('nhap xau=');readln(s);
writeln(s);
readln
end.
uses crt;
var st : string;
begin clrscr;
write('Nhap xau do :'); readln(st);
write(st);
readln
end.
Cách khác :
uses crt;
var st : string;
begin clrscr;
write('Hoc , hoc nua, hoc mai');
readln
end.
Câu hỏi trong lớp
Xem thêm
