Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2016, 10:02   #1
Aibolat
Новичок
Джуниор
 
Регистрация: 04.10.2016
Сообщений: 1
По умолчанию Для каждого числа последовательности найти сумму его простых делителей

Помогите этот код перевести на с++ консольный режим
Код:
uses crt;
function summa(n:integer):integer;
function prost(x:integer):boolean;
var  y:integer;
     f:boolean;
begin
if x<2 then f:=false{0,1 не простое}
else if x=2 then f:=true{2 простое}
else if x mod 2=0 then f:=false{четные больше 2 не простые}
else
 begin
  f:=true;
  y:=3;
  while(y*y<=x)and f do
  if x mod y=0 then f:=false
  else inc(y,2);
 end;
prost:=f
end;
var i,s:integer;
begin
if prost(n) then s:=n else s:=0;
for i:=2 to n div 2 do
if(n mod i=0)and prost(i) then s:=s+i;
summa:=s;
end;
var a:integer;
begin
clrscr;
writeln('Вводите целые положительные числа, окончание ввода 0');
repeat
readln(a);
if a<>0 then writeln('Сумма простых делителей=',summa(a));
until a=0;
readln;
end.
Aibolat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно найти сумму всех простых делителей введённого числа AnnaMV Общие вопросы C/C++ 1 10.08.2016 08:24
Найти первые n членов, их сумму,найти первый член заданной последовательности больше заданного числа L и указать его номер. ВолДим Помощь студентам 1 26.01.2016 18:51
Определить, больше ли сумма простых делителей числа М, произведения составных делителей числа N. Radmir. v Помощь студентам 5 10.11.2014 22:23
Для каждого аi найти ki количество его повторов последовательности. Yakov112 Общие вопросы C/C++ 2 06.10.2012 23:18
Сумма делителей каждого числа последовательности zhannabs Помощь студентам 3 13.01.2011 04:59