Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) дана во вложении.
uses GraphABC;
var
x : integer := 50; // x координата верхнего левого угла
y : integer := 50; // y координата верхнего левого угла
d : integer := 100; // длина прямоугольника
a : integer := 100; // ширина прямоугольника
points : array of point := new Point[5];
begin
SetPenColor(clBlack);
SetBrushColor(clRed);
Line(x, y+d, x, y);
points[0] := (x, y);
points[1] := (x+a, y);
points[2] := (round(a/4)*3+x, round(d/4)+y);
points[3] := (x+a, round(d/2)+y);
points[4] := (x, round(d/2)+y);
Polygon(points);
end.
Информационная война-это когда хакеры из разных стран пытаются взломать друг друга, сайты правительства, какие нибудь сервера, и пытаются завладеть важной информацией, происходят ddos атаки на правительственные сайты и так далее.
То, что на фото
1)6
2)0
3)0
4) 1
не на фото
5