<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
Трэкбол (но сейчас их называют тэчпэдом)
Var x:real;
begin
readln(x);
if x>7 then writeln(x-7) //выводится сколько не хватило.
else
writeln(7-x); //выводится сколько осталось.
readln;
end.
Ответ:
Вписать в строку функцию ЕСЛИ() и отредактрировать ее через fx в левом углу редоктрирования строки.
Объяснение:
Как понял тебе нужно свереть две таблицы.