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

Question

Информатика

Ленуся

4 декабря, 16:16

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

+2

Ответы (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.