var
x,y:real;
begin
readln(x,y);
if (y <= 7) and (y<>x*x) and (sqrt(sqr(x)+sqr(y))<=7) then
writeln("принадлежит")
else
writeln("не принадлежит");
readln;
end.
Если не ошибаюсь. А могу.
Нарисуй квадрат 12 на 12 ( обязательно на клеточном листе ) потом найди все координаты и соедини их. типа вот так. только свое
10101001(2) = 331(7) = 169(10) = A9(16)
1000101(2) = 126(7) = 69(10) = 45(16)
10010001(2) = 265(7) = 145(10) = 91(16)
10000101011(2) = 3000(7) = 1067(10) = 42B(16)
В виде зарядов, ну а мы их интерпретируем как "нули и единицы"
var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
<span>end.</span>