Program perulangan/looping pada Pascal

uses crt;
 var
 a,b,c : integer ;
 begin
clrscr;
 write ('masukan nilaimu = ');
 readln(c);

 for a:= 1 to c do
 begin
 for b:= 1 to a do
 write ('*');
 writeln;
 end;

readln;
end.

Tamilan/Outputnya akan seperti ini :
*
**
***
****

• Tweet
• Share
• Share
• Share
• Share

About Admin

This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.

Related Post