Перевод программки С++ на Паскаль! include include const float e =

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



include
include

const float e = 0.0001;

int main()
float x;
std::cin gt;gt; 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 gt; e / n );

std::cout lt;lt; log( x ) lt;lt; " " lt;lt; s lt;lt; std::endl;
system( "pause" );
return 0;

Ваня Тептин 2019-06-08 08:04:59

На самом деле, с С++ на Паскаль перевести намного проще, чем наоборот.