Выбери операции соответствующей инструментов Верных ответов: 2 стиль границ заливка текстурой толщина контура градиентная заливка сплошная заливка Назад Проверить
191
337
Ответы на вопрос:
Var i,n,h,m,d,r: integer; begin write('количество детей: '); read(n); write('высота забора: '); read(h); writeln('вводите через пробел рост детей (мальчиков - с минусом'); m: =0; d: =0; for i: =1 to n do begin read(r); if (r< 0) and (-r> h) then inc(m) else if r+10> h then inc(d) end; writeln('видно мальчиков- ',m,', девочек- ',d) end. контрольное решение количество детей: 8 высота забора: 112 вводите через пробел рост детей (мальчиков - с минусом -119 -124 118 107 -115 113 -111 105 видно мальчиков- 3, девочек- 4
Популярно: Информатика
-
Kejiro19.07.2020 22:29
-
Буся221208.06.2023 20:27
-
Sashapro11111.12.2022 01:53
-
Waleri257928.05.2022 16:00
-
Эliна20.10.2022 14:43
-
tim242412.09.2020 04:50
-
kat24721.09.2022 08:36
-
Mrklazik23.04.2022 12:06
-
gunelhy24.04.2021 21:18
-
Eazyeazy22.08.2022 19:57