В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
yulya158
yulya158
07.09.2022 00:09 •  Другие предметы

1.У чому полягають особливості харчування у підлітковому віці ? 2.Які принципи харчування будуть корисними для здоров'я ?

3.Який вплив на здоров'я мають харчові звички ?

4.До яких наслідків приводить неправильне харчування ?

5.Що ви знаєте про причини харчового отруєння ?

6.Перелічіть симптоми харчового отруєння ?

7.Як надавати до самодо при харчових отруєннях ?

8.Як запобігти харчовому отруєнні ?

9.Чому йододефіцит небезпечний ? Що потрібно робити при йододефіциті ?

10.Доведіть значення особистості гігієни

11.Доведіть що калорійність харчування та енерговитрати залежать від фізичного навантаження

12.Як користуватися інформацією на
упаковці харчового продукту ?

Показать ответ
Ответ:
MaGaFaYa
MaGaFaYa
02.07.2022 18:50

Ударные дрели производят слабые, но частые удары с небольшой амплитудой. Их мощности хватит, чтобы пробить кирпич, но на инструмент нужно нажимать. По бетону они малоэффективны. Дрели не рекомендуют использовать для частых работ по бетону и кирпичу.

Перфоратор справится с кирпичом, камнем и армированным бетоном, а некоторые модели могут работать, как отбойный молоток. Энергия и амплитуда ударов высокие, нажимать на инструмент не нужно, он всё делает сам. Перфораторы большие и тяжёлые. Если вы не планируете масштабного ремонта дома, можно ограничиться дрелью.

0,0(0 оценок)
Ответ:
diduh2002
diduh2002
14.04.2022 02:12

Объяснение:

type arr=array[1..100] of integer;

var

 a:arr;

 i,j,k,n:integer;

procedure PrintArr(a:arr;n:integer;s:string);{процедура печати массива}

var

 i:integer;

begin

 write(s);

 write('[');

 for i:=1 to n-1 do write(a[i],',');

 writeln(a[n],']');

end;

procedure EnterArr(var a:arr;n:integer;s:string);{заполнение массива}

var

 i:integer;

begin

 write(s);

 for i:=1 to n do read(a[i]);

end;

begin

 repeat

   write('n(1..100)=');

   readln(n);

 until (n>0) and (n<101);

 EnterArr(a,n,'A=');

 k:=a[1];

 for i:=1 to n do if a[i]<k then k:=a[i];

 writeln('Min=',k);

 PrintArr(a,n,'A_orig=');

 for i:=1 to n do if a[i]=k then a[i]:=i*i;

 printArr(a,n,'A_new=');

 readln;

end.

0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота