Задание

Заполни пропуски.

3 спортсмена бегут по стадиону с разной скоростью и пробегают 1 круг за разное время: 90, 60 и 120 секунд, Через сколько секунд одновременно стартовавшие спортсмены одновременно закончат текущий круг?

Заполни пропуски в программе, решающей эту задачу.

var a, b, c, m, n, p, d, NOK: real;

begin

a := 90;

b := 60;

c := 120;

m := a; n := b; p := c;

repeat

if a b then

a := a - b

else

b := b - a;

until a b;

NOK := m * n / b;

d := NOK;

repeat

if d c then

d := d - c

else

c := c - d;

until c d;

NOK := NOK * p / c;

writeln('Забег закончится через ', NOK, ' секунд');

writeln('Количество кругов 1-го спортсмена: ', / m);

writeln('Количество кругов 2-го спортсмена: ', / n);

writeln('Количество кругов 3-го спортсмена: ', / p);

end.

Количество секунд:

Количество кругов 1-го спортсмена:

Количество кругов 2-го спортсмена:

Количество кругов 3-го спортсмена: