Найти количество трехзначных чисел, сумма простых делителей которых кратна 5

@Gulen@ · Регистрация: 30.05.2013

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

Помогите решить задачу в паскале: Найти количество трехзначных чисел, сумма простых делителей которых кратна 5.

@CodeR · 30.05.2013, 15:10

Pascal

Var i,j,l,s,k:integer;
    f:boolean;
Begin
    For i:=100 to 999 do
    Begin
      s:=0;
      For j:=2 to i div 2 do
       if i mod j = 0 then
       Begin
         f:=true;l:=2;
         While (l<=j div 2)and(f) do
         Begin
           if j mod l = 0 then f:=false;
           inc(l);
         End;
         if f then s:=s+j;
       End;
      if s mod 5 = 0 then inc(k);
    End;
    writeln('Таких чисел = ',k);
    readln;
End.

@Gulen@ · 30.05.2013, 18:14 **[ТС]**

Спасибо большое!

@Gulen@ 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 6
		1
	Найти количество трехзначных чисел, сумма простых делителей которых кратна 5 30.05.2013, 08:43. Показов 3662. Ответов 2 Метки нет (Все метки) Помогите решить задачу в паскале: Найти количество трехзначных чисел, сумма простых делителей которых кратна 5. 0

@Gulen@ 0 / 0 / 0 Регистрация: 30.05.2013 Сообщений: 6
	30.05.2013, 18:14 [ТС]	3
	Спасибо большое! 0

Опции темы

Найти количество трехзначных чисел, сумма простых делителей которых кратна 5

Решение