катеты идут от прямого угла, напротив гипотенуза
от точки вправо- длина 1 катета
от точки вверх-длина 2 катета
полученые отрезки соединяем
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.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(6,i->(i+10)**3).Println
end.
<u>Результат</u>
1000 1331 1728 2197 2744 3375
Автор кто? скажи автора я тебе решу
Она велит его сначала ловит рыбу (еду ) ну или принести еду! А когда старик пошел ловить рыбы из моря а случайно ловилась золотая рыбка и она попросила старика отпустить ее потом она исполнит его любое желание и старик отпустил рыбку а потом старик расказал все старухе а тогда старуха и начала командовать им