#include <iostream>
using namespace std;
int main()
{
int n,k,i;
int array[100];
cin >> n;
for(i=0; i<n; i++)
{
cin >> array[i];
}
cin >> k;
for(i=0; i<n; i++)
{
if (k == array[i]){ break;}
}
if (k==array[i]) cout << i+1;
else cout << 0;
system("pause");
return 0;
}
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True
11719,03. В 1 Кб 1024 байта. Следовательно, делим 12000288 на 1024 = 11719,03 Кб.<span>
</span>
Alviko прав, однако мы тут не благородные влюблённые, чтобы, в случае отказа, не надоедать, посему попытаться стоит, пусть и с PascalABC.NET:
var
a: System.Numerics.BigInteger := new System.Numerics.BigInteger(1);
i: integer;
begin
for i := 58 to 158 do
a := a * i;
writeln(a);
<span>end.</span>
Метод-координат.
вот твой вопрос???
............