Var i,s : Integer; Begin s:=0; For i:=50 to 80 do If Odd(i) then s:=s+i; Writeln(s);
s:=0; i:=50; While i<=80 do Begin If Odd(i) then s:=s+i; Inc(i); end; Writeln(s);
s:=0; i:=50; Repeat If Odd(i) then s:=s+i; Inc(i); Until i>80; Writeln(s);
end.
delta88
22.09.2021
Ми́кроэргономика занимается исследованием и проектированием систем «человек-машина».
Ми́диэргономика исследует производственные взаимодействия на уровне рабочих мест и производственных задач. К ведению мидиэргономики относится проектирование структуры организации помещений, планирование и установление расписания работ, гигиена и безопасность труда.
Ма́кроэргономика исследует и проектирует систему в целом, учитывая все факторы: технические, социальные, организационные.
Целью макроэргономики является гармоничная, согласованная и надежная работы всей системы, "как единого организма".
Виды совместимости среды «человек-машина»
Антропометрическая совместимость — учёт размеров тела человека, возможности обзора внешнего пространства, положения оператора при работе.
Сенсомоторная совместимость — учёт скорости моторных операций человека и его реакций на различные виды раздражителей.
Энергетическая совместимость — учёт силовых возможностей человека при определении усилий, прилагаемых к органам управления.
Психофизиологическая совместимость — учёт реакции человека на цвет, цветовую гамму, частотный диапазон подаваемых сигналов, форму и другие эстетические параметры машины.
Versalmoda
22.09.2021
ПРОДУКТЫ ИСКА ФАРШ ЯЙЦО СОЛЬ,ПЕРЕЦ МУКА ПРИНАДЛЕЖНОСТИ СКОВОРОДКА МИСКА ДЛЯ ФАРША ДОСТОЧКА
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Найти сумму всех нечётных от 50 до 80, используя все три вида циклов.
Begin
s:=0;
For i:=50 to 80 do If Odd(i) then s:=s+i;
Writeln(s);
s:=0;
i:=50;
While i<=80 do
Begin
If Odd(i) then s:=s+i;
Inc(i);
end;
Writeln(s);
s:=0;
i:=50;
Repeat
If Odd(i) then s:=s+i;
Inc(i);
Until i>80;
Writeln(s);
end.