9.1.. Tablica potencija broja 2.

Opis programa: Tablica se dobija kao ispis proizvoda broja 2.

Listing programa:

PROGRAM p09111021;
{pro07 Tablica potencija broja}
USES
  WinCrt;
VAR
 k, p :Integer;
PROCEDURE Pot;
VAR
  i: Integer;
BEGIN
  p := 2;
  FOR i := 2 TO k DO
    p := p  * 2;
END;

BEGIN       {MAIN}
  FOR k := 1 TO 10 DO
    BEGIN
      pot;
      Writeln('2 na   ', k, ' =  ',p);
    END;
END.

Index