Задание:
В паскале! Помогите решить пожалуйста! 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.
Знаете другой ответ?