или кратко:
beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.Пример работы:
using System;
namespace Global
{
class Program
{
public string[] range = new string[2];
static void Main(string[] argv)
{
Program Obj = new Program();
Obj.Calculate();
}
public void Calculate()
{
string iN = Console.ReadLine();
int n = Convert.ToInt16(iN);
Console.WriteLine("Введите диапазон (2 числа через пробел)");
range = (Console.ReadLine().Split(' '));
int s = 0;
int b = getArrayItem(1);
for (int a = getArrayItem(0); a<b+1; a++)
{
if (n % a == 0)
{
s++;
}
}
Console.WriteLine(s);
Console.ReadKey();
}
public int getArrayItem(int item)
{
return Convert.ToInt16(range[item]);
}
}
}
Объяснение:
Объяснение:
const
n = 10;
r1 = 2;
r2 = 4;
r3 = 3;
var
temp1, temp2: Real; begin
temp1 := r1 * ((n div 2) * (n + 1) + Ord(Odd(n)) * ((n div 2) + 1));
temp2 := 2 * r2 * r3 / (r2 + r3);
WriteLn('R=', (r1 + temp1 * temp2 / (temp1 + temp2) + r2):0:4);
end.