// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 function IsPrime(n:integer):boolean; begin if n<4 then Result:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; Result:=not found end end;
begin Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println. Where(x->IsPrime(x)).Count) end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 procedure IsPrime(n:integer; var res:boolean); begin if n<4 then res:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; res:=not found end end;
begin var a:=ArrRandom(ReadInteger('n='),1,999); a.Println; var k:=0; var prime:boolean; foreach var e in a do begin IsPrime(e,prime); if Prime then Inc(k) end; Writeln('k=',k) end.
Ми́кроэргономика занимается исследованием и проектированием систем «человек-машина».
Ми́диэргономика исследует производственные взаимодействия на уровне рабочих мест и производственных задач. К ведению мидиэргономики относится проектирование структуры организации помещений, планирование и установление расписания работ, гигиена и безопасность труда.
Ма́кроэргономика исследует и проектирует систему в целом, учитывая все факторы: технические, социальные, организационные.
Целью макроэргономики является гармоничная, согласованная и надежная работы всей системы, "как единого организма".
Виды совместимости среды «человек-машина»
Антропометрическая совместимость — учёт размеров тела человека, возможности обзора внешнего пространства, положения оператора при работе.
Сенсомоторная совместимость — учёт скорости моторных операций человека и его реакций на различные виды раздражителей.
Энергетическая совместимость — учёт силовых возможностей человека при определении усилий, прилагаемых к органам управления.
Психофизиологическая совместимость — учёт реакции человека на цвет, цветовую гамму, частотный диапазон подаваемых сигналов, форму и другие эстетические параметры машины.
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int arr[24];
int max = -21;
srand(time(NULL));
for (int i = 0; i < 24; i++) {
arr[i] = rand() % 41 - 20;
if (arr[i] > max) max = arr[i];
cout << " " << arr[i];
}
cout << "\n Максимальный элемент = " << max << endl;
//system("pause");
return 0;
}