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.
Лишь в том, что 1+1=1, а не 2. Если 0 - это "ложно", а 1 - "истинно",
1. var a:array[1..10] of integer;
n, i: integer;
s:real;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0;n:=0;
for i:=1 to 10 do
if a[i]>28 then begin s:=s+a[i]; n:=n+1 end;
if n>0 then writeln(n,s/n) else writeln('net >28')
end.
Код программы
var
k, i: integer;
begin
k := 4;
for i := 1 to 3 do
k := i + 2 * k;
Writeln(k);
end.
Вывод
43