А в чем трудность?
Dim i As Integer, S As Double, n As Integer
Print "Введите количество слагаемых n: ";
Input n
S = 0
For i = 1 To n
S = S + Log(i)
Next i
Print "Сумма S = " & Str(S)
End
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var e:=0.0001;
var x:=ReadReal;
var a:=(x-1)/x;
var (s,n):=(a,2);
repeat
a*=(x-1)/x*(n-1)/n;
s+=a;
n+=1
until a<=e/n;
Writeln(log(x),' ',s)
end.
Если на клавиатуре написать это слово переключив её на английский язык, получится слово augud которое переводится как дыры.
(можете проверить!)
Если я правильно понял задание:
#include <iostream>
#include <algorithm>
#include <clocale>
template<typename T>
void func(T&& var1, T&& var2)
{
auto var3 = std::minmax(var1, var2);
std::cout << "min = " << var3.first << " | " << " max = " << var3.second << std::endl;
}
template<typename T>
void func(T&& var1, T&& var2, T&& var3)
{
auto var4 = std::minmax({var1, var2, var3});
std::cout << "Макс. число больше мин. числа в " << var4.second / var4.first << std::endl;
}
int main()
{
std::setlocale(LC_ALL, "Russian");
float var1, var2, var3;
std::cin >> var1 >> var2;
func(var1, var2);
std::cin >> var1 >> var2 >> var3;
func(var1, var2, var3);
std::system("PAUSE >> void");
return 0;
}