var
r, x, y :integer;
begin
randomize;
writeln('Введите координаты');
read(x);
read(y);
r := random(10)+1;
writeln('Радиус равен ', r);
if (x*x+y*y <= r*r) then
writeln('Точка принадлежит окружности')
else
writeln('Точка не принадлежит окружности');
end.
Дизъюнкция ещё называется
Имеет вид a+b, a|b, a or b
Выражение истинно, если хотя бы одно из условий истинно
Таблица:
a b a+b
0 0 0
0 1 1
1 0 1
1 1 1
Отец сказал: "Сынок,после школы зайди в магазин и купи хлеб с молоком".
Получил задание - Сохранил в памяти - Выполнил задание
Немного непонятно, но если сам пробовал, то разберешься