program z1;
var i,n,s:integer;
begin
write('Введите показатель степени: ');
read(n);
s:=1;
for i:=1 to n do s:=s*2;
write('2^',n,' = ',s)
end.
Объяснение:
Цикл с параметром
Приведу решение на с++ с использованием заголовочного файла math.h
program z1;
var i,n,s:integer;
begin
write('Введите показатель степени: ');
read(n);
s:=1;
for i:=1 to n do s:=s*2;
write('2^',n,' = ',s)
end.
Объяснение:
Цикл с параметром
Приведу решение на с++ с использованием заголовочного файла math.h