<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadReal('Основание a =');
var n:=ReadInteger('Показатель стпепени n =');
Writeln('Степень равна ',a**n)
end.
<u>Пример</u>
Основание a = 3.17
Показатель стпепени n = 6
Степень равна 1014.74185323017
<u>№9</u>
begin
var s:=ReadlnString('Введите последовательность цифр через пробел:');
s.Where(c->c<>' ').JoinIntoString.Inverse.ToBigInteger.Println
end.
<u>Пример</u>
Введите последовательность цифр через пробел: 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7
7890123456789012345
Получим 45 трехзначных чисел
CLS
<span>
N = 1</span><span>
FOR i = 1 TO 9</span><span>
FOR j = 0 TO 9</span><span>
FOR k = 0 TO 9</span><span>
IF i + k = j THEN</span><span>
PRINT N; i * 100 + j * 10 + k</span><span> N = N + 1</span><span>
END IF</span><span>
NEXT k</span><span>
NEXT j</span><span>
NEXT i
Программа выдает 45 таких чисел
</span>
Арабские, в десятеричной системе счисления.
Надеюсь помог =)