Предложить пользователю ввести координаты точки, определить входит ли точка с заданными пользователем координатами в заштрихованную область. Написать на Паскале!
Перемещение и копирование с меню1. Выделите область ячеек для копирования.2. Для перемещения щелкните кнопку Вырезать - или выберите команду Вырезать из меню Правка (Edit, Cut). Excel показывает границу, окружающую область вырезания.3. Для копирования щелкните по кнопке Копировать - или выберите Правка, Копировать (Edit, Copy). Excel показывает границу, окружающую область копирования.4. Выберите место (верхнюю ячейку области) вставки.5. Щелкните по кнопке Вставить - нажмите Enter или выберите Правка, Вставить (Edit, Paste).Возможность Перетаскивания (Drag and Drop) позволяет перемещать или копировать содержимое выделенных ячеек с мыши. Эта возможность особенно полезна при .перемещении и копировании на небольшие расстояния (в пределах видимой области рабочего листа).Перемещение и копирование перетаскиванием1. Выберите область ячеек для перемещения.2. Переместите указатель мыши на обрамление выделения.3. Перетащите выделение с указателя на новое место. Область ячеек будет перемещена на новое место.4. Если при перетаскивании удерживать нажатой клавишу Ctrl, область ячеек будет скопирована на новое место.
var i,z,y,x: integer; // объявление переменных begin // начало программы writeln('Введите числа: '); // Вывод сообщения readln(x,y); // Ввод чисел х и у с клавиатуры while i <> y do // Повторять цикл пока i не будет равно y begin // Вход в цикл z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х) i:=i+1; // Увеличиваем счетчик цикла на 1 end; // Выход из цикла write(z); // Вывод z (произведение х и у) end. // Конец программы
var x,y:integer;
begin
read(x,y);
if (y<=0) and (y<=x) and (y<=-x) then
write('Принадлежит')
else write('Не принадлежит');
end.