Введите три значения ускорения свободного падения.Программа должна проверить, есть ли...

Question

Введите три значения ускорения свободного падения.Программа должна проверить, есть ли среди них ускорение свободного падения. (Паскаль)

Comments

Ускорение на Земле или какой-либо другой планете? Оно на каждой планете своё... На Земле 9,807, на Марсе 3,711 , на Луне около 1... 

---

В задачи других условий нет

Answer 1

//PascalABC.NET 3.0
const g = 9.8;
begin
  if ReadSeqReal(3).Where(x -> (x >= g - 0.2) and (x <= g + 0.2)).Any<br>  then write('YES')
  else write('NO')
end.

Answer 2

Var  g1, g2, g3: real;
begin
  writeln('Введи три числа: ');
  readln(g1, g2, g3);
  if not ((g1 = 9.8) or (g2 = 9.8) or (g3 = 9.8)) then Writeln('Нет среди этих чисел ускорения на Земле') else begin
    if g1 = 9.8 then Writeln('Первое - ускорение на Земле');
    if g2 = 9.8 then Writeln('Второе - ускорение на Земле');
    if g3 = 9.8 then Writeln('Третье - ускорение на Земле');
  end;
end.