// 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
Запрещенные символы , которые нельзя использовать в имя файле Многие операционные системы запрещают использование некоторых служебных символов. Запрещенные символы Windows:
\ — разделитель подкаталогов / — разделитель ключей командного интерпретатора : — отделяет букву диска или имя альтернативного потока данных * — заменяющий символ (маска «любое количество любых символов») ? — заменяющий символ (маска «один любой символ») " — используется для указания путей, содержащих пробелы < — перенаправление ввода > — перенаправление вывода | — обозначает конвейер + — конкатенация В именах файлов UNIX и некоторых UNIX-подобных ОС запрещен слеш (/) — разделитель подкаталогов — и символ конца строки (\0). Перечисленные выше символы (кроме слеша) использовать можно, но из соображений совместимости их лучше избегать.
num = int(input()) # Это у нас a
b = 0
if num > 3:
b = a * 4
elif num == 3:
b = a ** 2
else:
b = a * 10