<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2;
var x:=a/b;
var y:=x/b;
var z:=Ln(1+x*x)/((1+y*y)*(1+x*x));
Writeln(z)
end.
<u>Результат</u>
0.5 0.5
0.0693147180559945
1 0.8
0.106704348687099
3 1
0.0230258509299405
А) 42, б)321..в)87...................................
Ответ:
кажется системный блок или что то такое
конъюнкция (логическое умножение)
#include <iostream>
using namespace std;
int main() {
int i,n,k;
cout<<"Vvedite chislo elementov massiva: ";
cin>>n;
int a[n];
for (i=0; i<n; i++){
cout<<"Vvedite "<<i+1<<"-e chislo massiva: ";
cin>>a[i];
}
cout<<"Vvedite znachenie k: ";
cin>>k;
int m=0;
for(i=0;i<n;i++) if (abs(a[i])>2*k) m++;
cout<<"Naydeno elementov: "<<m<<"\n";
system("pause");
return 0;
}
<em><u>Тестовое решение:</u></em>
Vvedite chislo elementov massiva: 6
Vvedite 1-e chislo massiva: -7
Vvedite 2-e chislo massiva: 2
Vvedite 3-e chislo massiva: 0
Vvedite 4-e chislo massiva: -5
Vvedite 5-e chislo massiva: 8
Vvedite 6-e chislo massiva: 3
Vvedite znachenie k: 2
Naydeno elementov: 3
Для продолжения нажмите любую клавишу . . .