Ирина Минакова
ДП
Денис Прибылов
p:=1;
for i:=1 to n do
p:=p*2;
Илья
Повторить двойку умножением N раз
Анна Николаева
В паскале АБС будет так:
program her;
uses crt, math;
var n,rez;
begin
writeln("vvedite stepen");
readln(n);
rez := power(2,n);
writeln("result: ", rez);
end.
Мария Графова
readln(n);
writeln(1 shl n);
Это если именно двойку, с другими основаниями фокус не пройдет.
Похожие вопросы