Ответы на вопрос:
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.
Популярно: Информатика
-
Ka09090722.02.2022 14:57
-
яна176402.04.2022 13:16
-
8928676216520.01.2020 20:51
-
MariaSet01020303.11.2021 00:07
-
malyovana201417.03.2021 03:55
-
makssssimfrank27.06.2022 16:55
-
WiTeKHasky04.11.2021 12:58
-
maximkap00727.06.2022 12:26
-
aliolga07.02.2022 21:34
-
vda20031107.01.2022 12:49