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

Question

Информатика

Валяха

23 августа, 23:51

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

+4

Ответы (1)

Знаете ответ на вопрос?

Лин · Answer 1

Var

g: real;

i: integer;

f: boolean;

begin

writeln ('Введите данные') ;

for i : = 1 to 3 do

begin

readln (g) ;

f : = f or (g = 9.8)

end;

writeln (f) ;

end.