Вычислить координаты центра тяжести трех материальных точек с массами m1, m2, m3 и координатами (x1, y1), (x2, y2), (x3, y3) по формулам: x= (m1x1 + m2x2 + m3x3) / (m1 + m2 + m3);
y= (m1y1 + m2y2 + m3y3) / (m1 + m2 + m3);

9 класс решить на Пайтоне

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

В курсе информатики при изучении раздела "Алгоритмы и исполнители" рассматривают исполнителя Чертежник.

Чертежник - это виртуальный компьютерный исполнитель, который предназначен для построения рисунков и чертежей на координатной плоскости, и представляет собой перо, которое  может поднимать, опускать и перемещать.

При перемещении опущенного пера за ним остается след.

Среда обитания - часть координатной плоскости (1-я четверть, где х и у - положительны).

Начальное положение Чертежника - точка (0; 0) и перо поднято.

После исполнения программы перо должно быть поднято и и находится в начале координат - точке (0; 0).

Основные команды:

field(m,n) - создать поле размером m×n

topoint(x,y) - переместить перо в точку (х; у)

penup - поднять перо

pendown - опустить перо

onvector(a,b) - сместить перо на вектор (a; b)

m и n - натуральные числа

х и у - целые числа

Подробнее - на -

Объяснение: