Ответы на вопрос:
Поиск простых делителей числа: var i,j,n: longint; f: boolean; begin writeln('введите число'); readln(n); if n< 2 then writeln('простых делителей нет') else begin write('число ',n,' ','= 1'); for i: =2 to n do if n mod i=0 then begin f: =true; j: =2; while f and(j< =round(sqrt(i/ begin if i mod j=0 then f: =false else j: =j+1; end; if f then write('*',i); end; end; end. тестовое решение: введите число 2345 число 2345 = 1*5*7*35*67
Популярно: Информатика
-
elvira12517.03.2023 16:36
-
даниил74011.02.2022 14:28
-
iltubaevapg14.06.2021 03:38
-
veselskih199809.09.2020 22:14
-
StarKiller1114.01.2021 12:01
-
Чай2424.05.2022 09:18
-
Зафар123456789025.12.2021 15:55
-
БМадина328.12.2020 15:29
-
ksastaff03.06.2022 20:55
-
angelinachka300003.02.2020 14:01