var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;
Вот) Тут используется формула
var
D, y, x, v: real;
begin
writeln('Enter x, y and v:');
readln(x, y, v);
y := exp(5*ln(y)); { y^5 }
x := exp(12*ln(x)); { x^12 }
v := exp(7*ln(v)); { v^7 }
v := exp(9*ln(cos(v))); { cos(v^7)^9 }
writeln(x, ' ', y, ' ', v);
end.
Орёл, развито чувство полёта и отличного зрения
Using System;
using System.Linq;
using System.Numerics;
class Program
{
public static readonly char[] hex_chars = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' };
static void Main()
{
var random = new Random(DateTime.Now.Millisecond);
var long_hex = new char[random.Next(10, 255)];
for (var i = 0; i < long_hex.Length; i++)
{
long_hex[i] = hex_chars[random.Next(0, 15)];
Console.Write(long_hex[i] + " ");
}
Console.WriteLine();
LongHexToNumber(long_hex);
Console.ReadKey();
}
static void LongHexToNumber(char[] long_hex)
{
var s = long_hex.Aggregate("", (xs, x) => x + xs);
var number = BigInteger.Parse(s, System.Globalization.NumberStyles.AllowHexSpecifier);
Console.WriteLine("Число = {0}", number);
Console.WriteLine("Число(HEX) = {0:X}", number);
Console.WriteLine("Входит в диапазон int: {0}", int.MaxValue >= number && int.MinValue <= number);
Console.WriteLine("Входит в диапазон uint: {0}", uint.MaxValue >= number && uint.MinValue <= number);
Console.WriteLine("Входит в диапазон long: {0}", long.MaxValue >= number && long.MinValue <= number);
Console.WriteLine("Входит в диапазон ulong: {0}", ulong.MaxValue >= number && ulong.MinValue <= number);
}
}
Только еще надо подключить библиотеку System.Numerics.dll
Для этого надо в проекте найти Reference, правой кнопкой -> Add Reference (откроется окошко) и там в стандартных библиотеках найти нужную
