Question

Найти количество натуральных чисел в интервале от 1 до 1000, у которых сумма цифр-простое число.
Решить с помощью паскаля , вложенные циклы.

Answer 1

var

 i,j,count,sp,s:integer;

begin

 count:=0;

 for i:=2 to 1000 do

   begin

     s:=i; sp:=0;

     while s>0 do

       begin

         sp:=sp + s mod 10;

         s:=s div 10;

       end;

     if sp>=2 then

     begin

     s:=1; j:=2;

     while (sqr(j)<=sp) and (s=1) do

       if sp mod j = 0 then

         s:=0

           else inc(j);        

     if s=1 then  

       inc(count);

     end;

   end;

 writeln(count);

end.