1) 50*5=250(см)-за 1 месяц
2)250*6=1500(см)-за 6 месяцев
Ответ:за 6 месяцев высота составляет 1500см
Program hdjj;
Var z,x,y,p
Begin
Writeln('');
Read(x,z,y);
If (x<y) and (x<z) then p:=x;
Writeln(p);
End;
If (z<y) and (z<x) then p:=z;
Writeln(p);
End;
If (y<x) and (y<z) then p:=x;
Writeln(p);
End.
<span>var a, b: integer;
begin<span>
writeln(<span>'Введите часы: '</span>);</span>
readln(a);<span>
writeln(<span>'Введите минуты: '</span>);</span>
readln(b);<span>
if (a > 6) and (a < 10) then writeln(<span>'Утро'</span>);
</span><span> if (a = 10) and (b = 0) then writeln(<span>'Утро'</span>);
</span><span> if (a = 6) and (b >= 30) then writeln(<span>'Утро'</span>);</span><span>
if (a > 10) and (a < 16) then writeln(<span>'День'</span>);</span><span>
if (a = 10) and (b >= 1) then writeln(<span>'День'</span>);</span><span>
if (a = 16) and (b <= 30) then writeln(<span>'День'</span>);</span><span>
if (a > 16) and (a < 22) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 22) and (b = 0) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 16) and (b >= 31) then writeln(<span>'Вечер'</span>);</span><span>
if (a > 22) or (a < 6) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 22) and (b >= 1) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 6) and (b <= 30) then writeln(<span>'Ночь'</span>);
</span><span>end.</span></span>
Для химии можна нарисовать колбу с чем то
Информатика:компютер
Исторія: книга с пером
Спорт зал спортивное оборудование
