Напишите программу для решения следующей : даны натуральные числа m, n. получить все кратные им числа, меньшие m*n. сделать прошу в pascal
225
263
Ответы на вопрос:
Program pr1; var i,m,n: integer; begin readln(m); readln(n); for i: =1 to m*n-1 do begin if (i mod n = 0) and (i mod m = 0) then writeln(i) end end.
Информационные модели-описания объекта-оригинала на языках кодирования информации. например: схема и чертеж. я думаю, что так.надеюсь, что : з
Популярно: Информатика
-
ПростоБегун29.07.2022 05:09
-
LiudaSerga234526.05.2020 03:24
-
ТвояМилая12.10.2021 09:56
-
Алина05120605.03.2022 14:41
-
Kseiaa07.03.2023 20:53
-
amishka0114.03.2020 10:55
-
aminoshkina23.05.2021 14:16
-
DANCER13131.01.2021 18:40
-
maksimkakravchenko20.06.2020 11:42
-
AREN1208200303.04.2022 17:31