ответ в т.к. этикет это поведение в принципе, а сетевой в сети
var
a: integer;
begin
readln(a);
if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число')
else writeln('периметр не двузначное число');
end.
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
Var s1, s2, t1, t2 :real;
begin
writeln('Введите s1, t1, t2');
readln(s1);
readln(t1);
readln(t2);
s2 := s1/t1 * t2;
writeln('s2: ',s2)
end.
Def IsPointInCircle(x, y, xc, yc, r):
return (x-xc)*(x-xc)+(y-yc)*(y-yc)<=r*r
x = float(input())
y = float(input())
xc = float(input())
yc = float(input())
r = float(input())
if IsPointInCircle(x, y, xc, yc, r):
print("YES")
else:
print("NO")
Пример:
0.5
0.5
1
1
0.1
NO