20.44
Unknown
program tulisan;
uses crt;
var t:string;
x,y,z:integer;
begin
write('masukkan suatu kata=');readln(t);
x:=length(t);
for y:=0 to x do
begin
for z:=1 to x-y do
write(' ',t[z]);
writeln;
end;
readln;
end.
Posted in: program pascalKamis, 22 Maret 2012
program tulisan
uses crt;
var t:string;
x,y,z:integer;
begin
write('masukkan suatu kata=');readln(t);
x:=length(t);
for y:=0 to x do
begin
for z:=1 to x-y do
write(' ',t[z]);
writeln;
end;
readln;
end.
Posted in: program pascal
0 komentar:
Posting Komentar