На паскале :
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.
1 тобуретка
2 круг
3 хз
братан я не знаю правельно или нет.
Это всё что я знаю
A)Antivirus Kaspersky
B)В случае скачивание из интернета игру но это не игра а вирус, тем самым вирус остаётся в компьютере.
C)Возможности Анти-Вирусов много например: Анти-Вирус может обнаружить вирус который был загружен на ваш пк и обезвредить угрозу, блокировать браузерные рекламы (спам) и.т.д
....
for i:=1 to n do
if a[ i ] > 0 then inc(c)
<span>....</span>
Можно через макрос VBA Excel
Sub
zapolnut()
For i = 1
To 100
Cells(i, 1)
= Rnd()
Cells(i, 2)
= 2 * Cells(i, 1)
Next i
End Sub