код на фото
===== PascalABC.NET =====
begin
var a := ReadReal('Укажи число:');
var n := ReadInteger('В какую степень возвести?');
var r := 1.0;
loop n do
r *= a;
Writeln(a, '^', n, ' = ', r)
end.
код на фото
код на фото
===== PascalABC.NET =====
begin
var a := ReadReal('Укажи число:');
var n := ReadInteger('В какую степень возвести?');
var r := 1.0;
loop n do
r *= a;
Writeln(a, '^', n, ' = ', r)
end.