Впаскале! решить ! 1. ввести с клавиатуры скорость катера vk и скорость течения vt. какой путь s пройдет катер по течению за t? 2. елена завела себе x кактусов. ее сестра побрила папиной бритвой t кактусов. елена не смогла определить каких кактусов больше: гладких или небритых. ей.

1.vart,vk,vt: real; beginwriteln('введите скорость катера (vk) и скорость течения реки (vt) в км/ч: '); read(vk,vt); writeln('введите время (t) в часах: '); read(t); writeln('катер за ',t,'ч. пройдет ',t*(vk+vt),' км'); end.2.varn,x: real; beginwriteln('введите кол-во кактусов: '); read(x); writeln('сколько кактусов было побрито? '); read(n); if (x - n) < x/2 then writeln('гладких кактусов больше.'); if (x - n) = x/2 then writeln('небритых и гладких поровну.'); if (x - n) > x/2 then writeln('небритых кактусов больше.'); end.