Составить программу. Вводятся три значения ускорения свободного падения. Программа должна проверить, есть ли среди них ускорения свободного падения.
Составить программу. Вводятся три значения ускорения свободного падения. Программа должна проверить, есть ли среди них ускорения свободного падения.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы