Pascal - Konsolowe

Potęgowanie liczby 2

Potęgowanie liczby 2
Pascal - Konsolowe

Program: potęgujący liczbę 2.

Użytkownik podaje liczbę, na podstawie której program wykonuje obliczenie wartości.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program Failure;
uses crt;
var w,n:Word;
begin
     clrscr;
     write('Wprowadź potęge liczby 2: ');
     read(n);
     w:=2;
     for n:=n-1 downto 1 do
     begin
         w:=w*2;
     end;
     write('Wynik wynosi: ',w);
     readkey;
end.