Как можно передать другу,который живёт в соседнем доме? а)закричать в окно б)пойти в гости в)позвонить

228

431

Посмотреть ответы 2

Ответы на вопрос:

Alina228321234

Информатика

4,6(100 оценок)

Да все вроде подходит

aisasiada

Информатика

4,6(41 оценок)

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 требуемых чисел нет