Очень надо ...............
Приложения:
Ответы на вопрос
Ответил Аноним
1
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.
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.
Новые вопросы
Қазақ тiлi,
1 год назад
Информатика,
7 лет назад