var
n : integer;
k : string ;
begin
write('Masukkan Kata : ');
read(k);
write('Kebalikannya adalah : '); for n:=length(k) downto 1 do
begin
write ( k[n] );
write();
end;
end.
Jumat, 05 Juli 2013
Membalikkan Kata Input
Posted by M Habibie
19.42, under Algoritma | No comments
var
n : integer;
k : string ;
begin
write('Masukkan Kata : ');
read(k);
write('Kebalikannya adalah : '); for n:=length(k) downto 1 do
begin
write ( k[n] );
write();
end;
end.
0 komentar:
Posting Komentar