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

195

245

Посмотреть ответы 2

Ответы на вопрос:

FireFox2017

Информатика

4,7(81 оценок)

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.