Задача: дана точка с координатами XY, нужно определить, принадлежит ли она указанной области
Решение:
var x, y: real;
begin readln(x, y);
if not ((x >= 0) and (y >= 0) and (y >= -2 * x + 4) and (y <= -x + 6)) then
write('не ');
writeln('принадлежит');
end.
Уже была такая задача.
Столбиком:
10011
110111
=
1001010
А) Последствия событий 13 века: события этого века положили начало отстаиванию русских земель от стран 'Западной Европы; Золотоордын-ское иго нанесло огромный ущерб экономическому. политическому и культурному развитию Руси
б) Океан - главный хранитель воды, давно поражающий исследователей необычностью своих свойств. Воды пронизывают всю географическую оболочку и производил в ней разнообразную работу
в) Симбиоз - это взаимовыгодное отношение двух организмов. Плоские черви - паразиты
г) Всякий равносторонний треугольник есть равноугольный треугольник. Прямоугольник с равными сторонами есть квадрат
д) Русский язык - один из славянских языков. Пунктуация изучат знаки препинания
е) Пушкин - великий русский поэт. Достоевский - один из популярных писателей
<span>ж) Информатика зиждется на математике. Компьютер облегчил жизнь человека
</span>
Var i,j:integer;
Begin
for i := 1 to 9 do
for j := 1 to 9 do
if (i+j=i*j) then
writeln(10*i+j);
End.