Ответы
Ответ дал:
0
var m,s,b,a:integer;
begin
writeln ('Введите степень:');
read (m);
b:=3;
s:=1;
for a:=1 to m do begin
s:=s*b;
end;
writeln('3 в степени ',m,': ',s);
end.
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад