begin
var (N, a, x1, x2) := (12, 1.0, 2.0, 3.0);
PartitionPoints(x1, x2, N).
Tabulate(x -> Sin(Sqrt(a ** 3 + x)) / (14 + a * x)).
ForEach(p -> Writeln(p[0]:17:14, p[1]:20:16));
end.
C#
int[] array = {1,32,3,25,7,9};//берём массив чисел
int t = 0;//переменная в которую будем прибавлять все эл. массива
int len = array.Length;//длина массива
for(int i = 0;i<len;i++)//цикл для перебора эл. массива (можно foreach роли не меняет)
t+=array[i];//прибавление
Console.WriteLine(t/len);//вывод сред.арифметического
Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
110110110 = 100000000(2) + 10000000(2) + 100000(2) + 10000(2) + 100(2) + 10(2) = 2^8 + 2^7 + 2^5 + 2^4 + 2^2 + 2 = 256 + 128 + 32 + 16 + 4 + 2 = 438
{ 1 – дециметр, 2 – километр, 3 – метр, 4 – миллиметр, 5 – сантиметр.}
var
units: integer;
value, factor: real;
begin
write('Введите значение - '); readln(value);
write('Введите единицу измерения - '); readln(units);
case units of
1: factor := 0.1;
2: factor := 1000;
3: factor := 1;
4: factor := 0.001;
5: factor := 0.01;
else
factor := 1;
end;
writeln(value * factor, ' м');
end.