Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
var a := ReadReal('Угол в градусах:');
var v0 := ReadReal('Начальная скорость, м/с:');
var s := ReadReal('Расстояние до цели, м:');
var eps := ReadReal('Максимальное отклонение от цели, м:');
var g := 9.81;
var t := 2 * v0 * Sin(DegToRad(a)) / g;
var x := v0 * t * Cos(DegToRad(a));
if Abs(x - s) <= eps then
Println('Попадет')
else
Writeln('Не попадет: дальность ', x:0:2);
end.
Приложения:
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад