Ручная, механическая, электрическая, электронная, компьютерная
Исходя из графика
2х - уравнение первой прямой
x/2 - уравнение второй прямой
(x+3)^2 + (y+3)^2 = 9 - уравнение окружности
x = int(input("Enter x "))
y = int(input("Enter y "))
if (((x+3)**2)+((y+3)**2) < 9.0) and ((y > 2*x) or (y < x/2)):
print("Принадлежит")
else:
print("Не принадлежит")
Может быть не исполнимые, а исполняемые файлы? Тогда эти вирусы так и называются - файловые. Обычно такие файлы с вирусом имеют расширение exe или реже com
Удачи! :)
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>
Var s:integer;
begin
writeln('Введите площадь квадрта');
readln(s);
writeln('Сторона квадрта = ',sqrt(s));
writeln('Периметр квадрта = ',sqrt(s)*4);
end.