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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.