<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s, ss, k) := (ReadInteger('s='), 0, 3);
while ss <= s do
begin
ss += k;
k+=2
end;
ss.Println
end.
===== PascalABC.NET
begin
var s := 0.0;
for var i := 1 to ReadInteger('n =') do
s += 1 / Sqrt(i);
Println(s)
end.
Функция sqr(x) служит для возведения аргумента х в квадрат, поэтому представим a¹⁰ в виде максимально возможного набора операций возведения в квадрат.
a¹⁰ = a²·a⁸ = a²·(a⁴)² = a²·[(a²)²]²
var
a:real;
begin
Write('a=');
Read(a);
Writeln(a,'^10=',sqr(a)*sqr(sqr(sqr(a))))
end.
Тестовые решения
a=2
2^10=1024
a=3.18
3.18^10=105747.765633159
a=10
10^10=10000000000
a=318.53
318.53^10=1.07523505784868E+25
На дополнительной клавиатуре специальная клавиша нам лук.
1. Самое большее натуральное число, на которое два или больше чисел делятся без остатка: наибольший общий делитель.
2. Фигура, образованная двумя лучами, исходящими из одной точки: угол.