Критерий
Дескритор
Обучающийся
Записываюг программу на языке
программирования
N Redodu i ove go
1
3
3
Cajakr uporpawny Ha
mesnil anropune
Coziakot nporpanny Ha
KONQRAY YCHOBHOTO
Записывалот программу на языке
nipor PamMHDORIMDI
Janinctelor nporpammy 112 sauke
riporpampoHans
3
3
3
Cogia or riporpanny Ha
SINNICHE::or mporpusimy 1X XILXE
программирования
3anitcwmor npor pammy Haibike
ripot PunMAPOBJ1037
5
3
Corianor nporpammy HR
KOMANN Berkers
Bcero 62 UTOB​

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).

var i,j,k,m: integer;
    s: string;
begin
  k:=0;
  for i:=1 to 1000000 do
  begin
    s:=IntToStr(i);
    m:=0;
    for j:=1 to (length(s) div 2) do
    if s[j]<>s[length(s)-j+1] then m:=1;
    if m=0 then
    begin
      inc(k); continue;
    end;  
    m:=pos('0',s);
    if m>0 then
    begin
      inc(k); continue;
    end;  
    m:=1;  
    for j:=2 to round(sqrt(i)) do 
    if i mod j = 0 then
    begin
      m:=0;
      break;  
    end;  
    if m=1 then inc(k); 
  end;
  k:=1000000-k;
  writeln('осталось чисел: ',k);
end.

осталось чисел: 544011