Ответы на вопрос:
var n:integer; procedure del(x:integer); var d:integer; begin d:=2; if(x>1)then begin while x mod d<>0 do d:=d+1; if(x div d >1)then write(d,") else write(d); del(x div d) end else exit; end; begin read(n); write(n, '= '); if(n<2) then write(n) else del(n); end.
Популярно: Информатика
-
анора1016.09.2022 15:09
-
sdk230.12.2021 14:21
-
lisniczova08.04.2021 21:38
-
ulianaazet6608.02.2022 04:18
-
МегаМозги200516.09.2020 20:56
-
karina569858619.09.2020 05:54
-
Ники6722.12.2020 23:57
-
mishustinat09.12.2020 12:32
-
Zaika643213.01.2023 08:46
-
sona23809.02.2020 16:21