Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Очень надо ...............

Ответ оставил Гость

Uses Crt;
var N, p,i : integer;
begin
 ClrScr;
 Write( N= ); ReadLn(N);
 if N<=30 then
    if N=0 then Writeln(2^0 = 1)
           else
           begin
             p:=1;
             for i:=1 to N do
             P:=2*P;
           end;
 Writeln( 2^, n, =,P );
 ReadLn;
end.