Assign<span> – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.</span>
Reset - открывает существующий файл для чтения.
Rewrite<span> – создает и открывает новый файл для записи на внешнем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).</span>
Close<span> - закрывает открытый файл.</span>
Как бы написал я:
program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.
Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.
Для перевод в двоичную просто делим на 2, а остаток записываем во вторую колонку. Когда остается единица, то выносим ее так же во второй столбик и читаем СНИЗУ ВВЕРХ.
Для перевод из двоичной в десятичную мы над числом начиная с правого проставляем цифры, начиная с нуля. Это будет степенью двойки, на которую будет умножаться соответствующая цифра двоичного представления числа. Просто складываем, вычисляем.
Для примера я взяла число 123.
Информация — сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые воспринимают информационные системы (живые организмы, управляющие машины и др.) в процессе жизнедеятельности и работы.
128 символов = 2^7 т.е. 7 бит на символ
Одна страница занимает = 8750байт / 5 страниц = 1750 байт
Одна строка занимает = 1750 байт / 25 строк = 70 байт
Символов в строке = 70*8 бит / 7 бит = 80 символов