89

Составьте программу вычисления произведения простых делителей натурального…

24 марта 2023

Составьте программу вычисления произведения простых делителей натурального числаN.

категория: информатика



36

varx,i,n: integer; beginx: =1; write ('Введите натуральное число: '); read (n); write ('Простые делители числа ',n,': '); for i: =1 to n do if n mod i=0 then begin write (i: 4); x: =x*i; end; writeln; writeln ('Их произведение: ',x); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...