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