2". Створіть три тестових набори вхідних даних для тестування про- екту, призначеного для розв'язання задачі: «Два потяги виїхали одночасно з однієї станції у протилежних напрямках. Потрібно знайти відстань, на якій вони будуть один від одного через зада- ний час, якщо відома швидкість кожного потяга». Обчисліть очі. кувані результати за складеними тестами. Відкрийте проект, на- приклад з папки Тема 6\Завдання 6.2\Проект 6.2.2. Протестуйте його на ваших тестових даних. Зробіть висновок, чи містить проект логічні помилки. Якщо так, то в чому може бути помилка.
1)
var
a,b,c:real;
begin
readln(a,b);
c:=180-a-b;
if (a>90) or (b>90) or (c>90) then writeln('тупоугольный')
else
if (a=90) or (b=90) or (c=90) then writeln('прямоугольный')
else writeln('остроугольный');
end.
2)
var
v:real;
begin
readln(v);
if v<7.8 then writeln ('ракета упадет на Землю');
if v=7.8 then writeln ('ракета станет спутником Земли');
if (v>7.8) and (v<=16.4) then writeln ('ракета останется в пределах Солнечной системы');
if (v>16.4) then writeln ('ракета покинет пределы Солнечной системы');
end.