// 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
var sum, sum_chetn, sum_nechetn : integer; b:array [1..10] of integer;
begin for var i := 0 to 10 do begin sum :=sum + b[i]; //сумма всех элементов if (i mod 2 =0) then begin sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов end else begin sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов end; end; println('Сумма всех элементов:'); println(sum); println('Сумма всех четных элементов:'); println(sum_chetn); println('Сумма всех нечетных элементов:'); println(sum_nechetn); end.
ответ: унарная система счисления
Объяснение: