Program name;
const n=5;
var
m:array[1..n] of integer;
i,t:integer;
begin
writeln('Введите ',n,' елементов массива');
for i:=1 to n do readln(m{i});
t:=m{1};
for i:=2 to n do t:=t*m{i};
write('вывод массива: ');
for i:=1 to n do write(m{i},' ');
writeln(#13#10,'Результат произведения элементов массива: ',t);
readln;
<span>end. </span>
1. Вар сам напиши.
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.
2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.
Ответ:
вот на фото представлен пример, а там уже делайте свою по своей заданной теме
На первый вопрос:
1.Химические
2.Психофизические
3.Физические
На второй вопрос:
ИКТ-технологии для информационной<span> среды системы образования
</span>На третий вопрос:
Санитарно-эпидемиологические правила и нормативы устанавливают санитарно-эпидемиологические требования к размещению, устройству, оборудованию, содержанию, противоэпидемическому режиму, профилактическим и противоэпидемическим мероприятиям, условиям труда персонала, организации питания пациентов и персонала медицинских организаций.
На четвертый вопрос:
Гигиенические нормативы — установленные исследованиями допустимые максимальные или минимальные количественные и (или) качественные значения показателя, характеризующего тот или иной фактор среды обитания с позиций его безопасности и (или) безвредности для человека.
На пятый вопрос:
технические требования это требования которые нужно использовать при работе с техникой , монитор даёт плохое влияние ( лучами) на глаза и мозг облучая их .
О<u>К</u>А
===================
