Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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