[Pascal 11] Viết chương trình.

[pro0o]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào họ tên của 1 học sinh và in ra màn hình số ký tự của tên đó.

 

[yumi_26]

Có tính dấu cách ko bạn. thôi làm 2 trường hợp

* ko tính dấu cách:

var a: string;
d, i,k: byte;

begin
write('nhap ho ten'); readln(a);
d:=0; k:=length(a);
for i:=1 to k do
if a <> ' ' then d:=d+1;
write('so ky tu cua ten la',d);
readln
end.

* tính cả dấu cách:

var a:string;
k: byte;

begin
write('nhap ho ten'); readln(a);
k:=length(a);
write('so ky tu cua ten la',k);
readln
end.