Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
#include <bits/stdc++.h>
using namespace std;
template<class T>
inline T abs(const T& a){return a < 0 ? -a : a;}
void solve(float x, float y, float z){
double fi = exp(abs(x-y));
fi *= pow(abs(x - y), x + y);
fi /= atan(x) + atan(z);
fi += pow(pow(x, 6.0), 1.0/3);
fi += pow(pow(log(y), 2), 1.0/3);
cout << fi;
}
int main()
{
float x, y, z;
cin >> x, y, z;
solve(x, y, z);
//solve(-0.02235, 2.23, 15.221);
return 0;
}
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p < 200)
.Max
.Println
end.
Достал бутерброд,шнур из розетки
______________________________