program length;
uses crt;
varlength
s:string;
x:byte;
begin
clrscr;
write('nama anda ?'); readln(s);
x:=length (s);
writeln('panjang nama anda ' ,x,' karakter !!');
readln;
end.
| Date | : Thursday, October 14, 2010 10/14/2010 11:23:00 PM |
| Category | : Ilmu Komputer - Matkul - Pemograman |
| Author | : Unknown |
| Share | :
Tweet
|
| Responds | : 0 Comment |
Post a Comment