Вам нужно зайти в меню «Пуск», в строке поиска написать команду «CMD» и нажать клавишу «Enter». Откроется окно терминала, где вам нужно ввести команду «ipconfig» и вновь нажать клавишу «Enter», после чего откроется список всех ваших сетевых подключений.
В этом списке вы увидите и ваш ip адрес и, соответственно, маску подсети Заходите в Панель управления\Сеть и Интернет\Сетевые подключения, выбираете ваше подключение и кликом правой кнопкой мыши переходите в графу «Состояние». В открывшемся окне кликните по клавише «Сведения». Откроется новое окно вашего подключения, где будут указаны ваш ip и маска подсети. Еще один узнать маску подсети по ip адресу: кликните по значку подключения в правом нижнем углу монитора и выберите «Центр управления сетями». Затем кликните в открывшемся окне «Изменение параметров адаптера» и дальше действуете аналогично вышеописанному варианту: начиная с выбора вашего подключения.
Program qq; var x, y, z, c, a, b: real; begin writeln('Введите стоимость билета бизнесс-класса:'); readln(x); if x > 0 then begin y:= x / 2; writeln('Введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса'); readln(a, b); if (a >=0) and (b >= 0) then begin c:= a*x + y*b; z:= (120*y + 40*x) - c ; writeln('Доход авиакомпании:', z); end else writeln('Решение невозможно'); end; end.
Вот так всё работает. 1. Не там поставили end; 2. лишнее else writeln('Решение невозможно'); 3. У меня ругался паскаль на то что в условия при and не взяты в круглые скобки. if (a >=0) and (b >= 0) then
