Дано целое число (> 1). Если оно простое, то вывести сообщение: «Число простое», иначе вывести сумму делителей

@Milenchikk · Регистрация: 21.09.2021

Студворк — интернет-сервис помощи студентам

Дано целое число N (> 1). Если оно простое, то вывести сообщение: «Число N простое»,
иначе вывести сумму делителей.

Помогите, пожалуйста, с заданием!!!!

@XzzzX · 22.10.2021, 16:44

Pascal
1
2
3
4
5
6
## uses school;
var n:= readlninteger;
if n.DivisorsCount = 2 then
  print('Число', n, 'простое')
else
  n.Divisors.Sum.Print;

@HayPoke · 30.10.2021, 19:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var f,i,n,sum:integer;
begin
  f:=0;
  i:=1;
  read(n);
  while i<=n do begin
    if n mod i=0 then begin sum:=sum+n div i; f:=f+1;
  end;
  i:=i+1;
  end;
  if (f=2) then write('Число простое') else write(sum);
end.

@Milenchikk · 07.11.2021, 22:50 **[ТС]**

блин..а можно как-то попроще?....

@XzzzX · 08.11.2021, 09:11

а что сложного в коде из 6 строк? Вы разобраться пробовали вообще или увидели незнакомые "слова" и сразу в "невозможное для понимания" записали?

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Milenchikk 0 / 0 / 0 Регистрация: 21.09.2021 Сообщений: 44

	Дано целое число (> 1). Если оно простое, то вывести сообщение: «Число простое», иначе вывести сумму делителей 22.10.2021, 14:06. Показов 1668. Ответов 4 Метки нет (Все метки) Дано целое число N (> 1). Если оно простое, то вывести сообщение: «Число N простое», иначе вывести сумму делителей. Помогите, пожалуйста, с заданием!!!! 0

@Milenchikk 0 / 0 / 0 Регистрация: 21.09.2021 Сообщений: 44
	07.11.2021, 22:50 [ТС]
	блин..а можно как-то попроще?.... 0

@XzzzX 405 / 280 / 120 Регистрация: 09.07.2021 Сообщений: 1,017 Записей в блоге: 1
	08.11.2021, 09:11
	а что сложного в коде из 6 строк? Вы разобраться пробовали вообще или увидели незнакомые "слова" и сразу в "невозможное для понимания" записали? 0