Перевод программы С++ на Паскаль!
#include
#include
const float e = 0.0001;
int main() {
float x;
std::cin >> x;
float a = (x - 1 ) / x;
float s = a;
int n = 2;
do {
a *= (x - 1 ) / x * (n - 1) / n;
s += a ;
n++ ;
}
while ( a > e / n );
std::cout << log( x ) << " " << s << std::endl;
system( "pause" );
return 0;
}
Ответы на вопрос
Ответил Аноним
0
PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
Внимание! Если программа не работает, обновите версию!
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.
Приложения:

Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
Алгебра,
7 лет назад
Математика,
9 лет назад
Алгебра,
9 лет назад