Написать программу возведения числа a в степень n.с циклом repeat или while. 65

125

132

Посмотреть ответы 2

Ответы на вопрос:

Люда0001

Информатика

4,6(30 оценок)

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! 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