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
antilopa001
20.11.2021
Формула несколько не совсем понятна, но если что функцию не трудно переделать var x: real; function z(x: real): real; begin if x > = 1 then z : = ln(x) else z : = 1; end; begin x : = 1; writeln('z(', x, ') = ', z(x)); x : = -1; writeln('z(', x, ') = ', z(x)); write('x='); readln(x); writeln('z(', x, ') = ', z(1)); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Натуральные числа а и в являются числителем и знаменателем обыкновенной дроби. сократить эту дробь, написать программу на си