Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Blaxi
01.03.2021 13:49 •
Информатика
Составьте программу вычисления произведения простых делителей натурального числа n.
Показать ответ
Ответ:
Казань565
01.10.2020 12:54
var
x,i,n: integer;
begin
x:=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.
0,0
(0 оценок)
Популярные вопросы: Информатика
UoYFer
12.10.2022 03:38
Пользуясь оператором switch? по введенному номеру месяца вывести на экран сообщение о номере квартала с++. нужен код. ....
Dashaaleshenko
14.09.2020 15:25
Составьте программу для вычисления значения выражения...
lizench
05.05.2022 11:45
Дана программа:Program Primer;VarA,result : real;Begin Writeln( Введите значения переменной A ); Write( A= ); Readln(A); Result := sqr((3+A)*5); Writeln ( sqr((3+A)*5) ,...
isa2221
27.03.2020 01:28
Минимизировать логическую функцию X1*X2*(X1*X3+X1*X2)=F...
denis2013den
07.06.2020 01:55
Назовите верные имена переменных: x_5 , x5, 5x, var, sunday , result , мин, min , a+b , may_day , begin ....
Malishok12345
07.06.2020 01:55
Язык pascal abc дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела,...
ИришкаTV
29.01.2021 20:43
Напишите эссе на тему : какие качества я ценю в человеке больше всего? нужноо...
е7гроошишгини
29.01.2021 20:43
Вавтобусе ехали пассажиры. когда на остановке вышли 15 человек, в нем осталось 27 человек. сколько пассажиров было в автобусе до остановки? нужна краткая запись и решение...
salome5toriy
29.01.2021 20:43
Морфологический разбор слова: дятла, радость, по листьям. умоляю умоляю много...
teXerStas
29.01.2021 20:43
На каком материке обитает зубр (на северной америке или на африке)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x,i,n: integer;
begin
x:=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.