Сначала идет not c результат = true затем a and b, результат = false, true and false = true
tershova
14.07.2021
Var 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 требуемых чисел нет
ответ:
объяснение: