Question

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

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
  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.