Человек получает информацию с помощью органов чувств. Осязание и обоняние не обработает компьютер
<span>С развитием компьютерной техники появился новый уникальный метод исследования -- компьютерный эксперимент. </span>
1. Shift
<span>2. <= Backspase, => Delete.</span>
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.