Program Task;
Const a = 5;
b = 10;
Var i, c, d: Integer;
Begin
If a > b Then
WriteLn('Ошибка')
Else
Begin
For i := a To b Do
If i > 0 Then
Begin
c := c + i;
d := d + 1;
End;
If d > 0 Then
WriteLn('Результат: ', (c / d):5:2)
Else
WriteLn('Таких чисел нет');
End;
<span>End.</span>
#include <iostream>
#include <cmath>
using namespace std;
int main ()
{
double x, E, Y = 0, znam = 3;
int count = 1;
cin >> E;
cin >> x;
for (int i = 1; pow(x, i) / znam >= E; i += 2)
{
if (count % 2 == 1)
Y += pow(x, i) / znam;
else
Y -= pow(x,i) / znam;
znam *= 5;
}
cout << Y;
}