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

1

Ответы и объяснения

2014-03-12T17:10:48+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.