m, n, nok, t, i: longint;
begin
Write('Введите через пробел два целых положительных числа- ');
Readln(m, n);
{Сначала ищем НОК - наименьшее общее кратное}
if m = n then begin
nok := m;
t := m * m
end
else begin
t := m * n;
repeat
if m > n then m := m - n else n := n - m
until m = n;
nok := t div m
end;
{Теперь умножаем НОК на числа натурального ряда,
пока не дойдем до величины t=m*n}
if nok = t then Writeln('Требуемых чисел нет')
else begin
i := 1;
while (nok * i < t) do
begin
Write(nok * i, ' ');
i := i + 1
end
end
end.
Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет
Вероятность первого промаха: 0,35
Вероятность второго промаха: 0,18
ответ: 0,063
Пошаговое объяснение:
событие A1 - попадание при первом выстреле,
P(A1) - вероятность попадания при первом выстреле,
P(A1) = 0,65
событие A2 - промах при первом выстреле,
P(A2) - вероятность промаха при первом выстреле,
события A1 и A2 - противоположные, тогда
P(A2) = 1 - P(A1)
P(A2) = 1 - 0,65 = 0,35
событие B1 - попадание при втором выстреле,
P(B1) - вероятность попадания при втором выстреле,
P(B1) = 0,82
событие B2 - промах при втором выстреле,
P(B2) - вероятность промаха при втором выстреле,
события B1 и B2 - противоположные, тогда
P(B2) = 1 - P(B1)
P(B2) = 1 - 0,82 = 0,18
событие C - промах при обоих выстрелах,
P(C) - вероятность промаха при обоих выстрелах, то есть вероятность совместного появления двух независимых событий A2 и B2,
тогда
P(C) = P(A2) × P(B2)
P(C) = 0,35 × 0,18 = 0,063
Поделитесь своими знаниями, ответьте на вопрос:
За 20 секунд конь пробежал 400м.антилопа за 12секунд пробежала 300м.у кого из них скорость больше? на сколько?
400/20=20м\с- скорость коня
300/12= 25 м/с- скорость антилопы
25-20=5 м\с- на столько больше скорость антилопы, чем коня