Question

Перевод программы С++ на Паскаль!



#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;
}

Answer 1

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.