Question

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

Answer 1

program Uskorenie;
 uses Crt;
 const g = 9.81;
 var   g1, g2, g3 : real;

begin
 ClrScr;
 Write (' Введите g1 ='); ReadLn(g1);
 Write(' Введите g2 ='); ReadLn(g2);
 Write (' Введите g3 ='); ReadLn(g3);
 WriteLn;
 if (g1=g) or (g2=g) or (g3=g) then WriteLn(' Есть!')
                               else WriteLn(' Отсутствует...');
 ReadLn;
end.