В паскале! помогите решить пожалуйста!1. Ввести с клавиатуры скорость катера vk и скорость течения vt. какой путь s пройдет катер по течению за t? 2. Елена завела себе X кактусов. Ее сестра побрила папиной бритвой T кактусов. Елена не смогла определить каких кактусов больше:гладких или небритых. Помоги ей.
1. var t,vk,vt: real; begin writeln('Введите скорость катера (vk) и скорость течения реки (vt) в км/ч: '); read(vk,vt); writeln('Введите время (t) в часах: '); read(t); writeln('Катер за ',t,'ч. пройдет ',t*(vk+vt),' км'); end. 2. var n,x: real; begin writeln('Введите кол-во кактусов: '); 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.
