Вычислите число 2^100. десятичную запись полученного числа нужно записать четыре раза подряд (например, если ответом было число 123, то записать четыре раза подряд его десятичную запись — это получить число 123123123123 из результата извлекли корень 10-й степени (то есть возвели результат в степень 1/10). сколько получилось? ответ запишите с точностью до трех знаков после запятой

Обожаю Python.

n = 0
for i in range(4):
    n *= 10**len(str(2**100))
    n += 2**100
print(n)
print(n**(1/10))

Обожаю PascalABC.NET и не люблю Питон. На нем слишком длинно писать и долго считать

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(((4*((BigInteger(2)**100).ToString)).ToReal)**0.1:0:3);
end.

Результат
2043148610528.140

e = 2.7182818284590452353602874713526624977572470936999595749669676277240766303535475945713821785251664274274663919320030599218174135966290435729003342952605956307381323286279434907632338298807531952510190115738341879307021540891499348841675092447614606680

c = [0.01, 0.1, 0.25]

for i in c:

x = -2

print("Значения функций при изменении аргумента с шагом: "+ str(i))

while x <= 2:

 y = e**x

 x += i

 print("y = " + str(y))

Объяснение:

точно какой ответ должен быть не указано, поэтому сделал как захотел

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.