Viết chương trình nhập vào họ tên một người, in ra màn hình họ tên người đó và cho biết họ tên này có bao nhiêu ký tự kể cả ký tự dấu cách.
2 câu trả lời
program hoten
Uses crt;
var s:string;
i,d:integer;
begin
write('Nhap ho ten: '); read(s);
for i:=1 to length(s) do inc(d);
writeln('Ho ten nguoi do la: ',s);
write('Ho ten nguoi nay co: ',d,'ki tu');
Readln;
End.
program xau;
uses crt;
var st : string;
begin clrscr;
write('Nhapho ten nguoi do :'); readln(st);
writeln('Ten nguoi do la :',st);
writeln('Ten nguoi do co ',length(st),' ki tu ');
readln
end.
