viết chương trình xuất ra 3 chữ cái đầu tiên của tên em bằng các kí tự * lưu ý dùng các chương trình con xuất ra màn hình một chữ cái Giúp mình với mình khumm biết làm :((
2 câu trả lời
Như đề bài:
uses crt;
var i:longint;
s:string;
procedure p(s:char);
begin
write(s);
end;
begin
clrscr;
write('Nhap ten em: ');readln(s);
p('*'); p('*'); p('*');
for i:=4 to length(s) do p(s[i]);
readln
end.
