использовать Рисователь
алг
нач
новый лист(600, 400, белый)
в точку (250,350)
линия в точку (300,75)
линия в точку (350,350)
линия в точку (250,350)
кисть(красный)
окружность(300, 75, 20)
залить(300,250)
в точку (200,350)
линия в точку (100,100)
линия в точку (265,265)
линия в точку (250,350)
линия в точку (200,350)
кисть(синий)
окружность(100, 100, 20)
залить(200,300)
в точку (400,350)
линия в точку (500,100)
линия в точку (335,265)
линия в точку (350,350)
линия в точку (400,350)
кисть(зеленый)
окружность(500, 100, 20)
залить(400,300)
кон
Объяснение:
Смотри картинку
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('Введите число a:');
var n:=ReadInteger('Введите показатель степени n:');
if n<=0 then begin
Writeln('Показатель степени должен быть натуральным числом');
Exit
end;
// перевод показателя степени в двоичную систему счисления
var t:=n;
var r:string:='';
while t>=2 do (r,t):=(t mod 2+r,t shr 1);
r:=t+r;
// возведение в степень
var (rr,i):=(a,2);
while i<=r.Length do begin
rr:=Sqr(rr);
if r[i]='1' then rr*=a;
i+=1
end;
Writeln(a,'^',n,' = ',rr)
end.
Примеры
Введите число a: 3.182
Введите показатель степени n: 11
3.182^11 = 338611.675261463
Введите число a: 2
Введите показатель степени n: 10
2^10 = 1024