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

Question

89

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

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

ответить

в избранное ссылка

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

evgeny76 · Accepted Answer

36

evgeny76

21 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: