Ответы на вопрос:
Var n: integer; ans: int64; begin readln(n); ans : = 1; n: =n+1; while (n > 1) do begin ans : = ans * n; n : = n - 1; end; writeln(ans); end. пример: 2 6
Яв паскале не силён, но если mod - это остаток от деления тоо if(m mod n == 0 and(& & ) n mod m = 0) то да в синтаксисе ошибки наверное, подправь, но думаю идею ты понял
Популярно: Информатика
-
svyara809.07.2022 11:24
-
papka8904.03.2022 14:22
-
Ivan195507.10.2022 11:32
-
danlis200323.01.2023 06:45
-
яяяяяя6017.07.2022 18:16
-
GrebenukMerry21.06.2020 04:54
-
Zefirka0831.12.2022 11:33
-
пацанка623.11.2022 19:47
-
9978630.08.2020 09:39
-
arturk1318.11.2022 13:18