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.

0 bình luận về “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.”

1. 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.

   Bình luận

2. 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.

   Bình luận