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.
Если в Паскале, и первый пример всё же 1x2, то такая программа:
var
a,b: integer;
begin
a := 1;
b := 2;
while a<=9 do
begin
writeln(a,'x',b,'=',a*b);
a := a + 1;
end;
end.
Здесь надо посчитать в процентах но вот есть сомнения а или б если я угадаю одну из шапок там будут все синие то есть 50%
а там вероятность того что выпадет меньше
Правильный вариант Б)
Если расстояние в 10 метров мальчик прошел со скоростью 2 м/с, то за какое время он пройдет 20 метров?
Если за 20 минут девочка собрала 5 яблок, то сколько яблок она соберет за 40 минут?