Struktur Data segitiga 12345

2:13 AM |

uses crt;
var
i,j : integer;
begin
clrscr;
for i := 5 downto 1 do
 begin
    for j := 1 to i do
      write (j, ' ');
     writeln;
     end;
  readln;

 end.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Posted by Ya

0 comments:

Post a Comment

Subscribe to: Post Comments (Atom)