UCHEES.RU - помощь студентам и школьникам

Взяли миллион первых натуральных десятичных чисел и вычеркнули все простые числа. Из...

В 1:24 поступил вопрос в раздел Информатика, который вызвал затруднения у обучающегося.

Вопрос вызвавший трудности

Взяли миллион первых натуральных десятичных чисел и вычеркнули все простые числа. Из оставшейся последовательности вычеркнули палиндромы (числа, кроме однозначных, одинаково читающиеся с начала и с конца, например 121, 33433, 8888). Из оставшейся последовательности вычеркнули числа, содержащие 0 в десятичной записи. В результате от миллиона первых натуральных чисел осталось всего ____ числа (чисел).

Ответ подготовленный экспертами Учись.Ru

Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Информатика". Ваш вопрос звучал следующим образом:

Взяли миллион первых натуральных десятичных чисел и вычеркнули все простые числа. Из оставшейся последовательности вычеркнули палиндромы (числа, кроме однозначных, одинаково читающиеся с начала и с конца, например 121, 33433, 8888). Из оставшейся последовательности вычеркнули числа, содержащие 0 в десятичной записи. В результате от миллиона первых натуральных чисел осталось всего ____ числа (чисел).

После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:


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


-------------------



НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Федотова Богдана Антоновна - автор студенческих работ, заработанная сумма за  прошлый месяц 52 123 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию

ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!

Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.

СМОТРЕТЬ ЦЕНЫ

Деятельность компании в цифрах:

Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.

РАЗДЕЛЫ САЙТА

Ответы на вопросы - в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.

Полезные статьи - раздел наполняется студенческой информацией, которая может помочь в сдаче экзаменов и сессий, а так же при написании различных учебных работ.

Красивые высказывания - цитаты, афоризмы, статусы для социальных сетей. Мы собрали полный сборник высказываний всех народов мира и отсортировали его по соответствующим рубрикам. Вы можете свободно поделиться любой цитатой с нашего сайта в социальных сетях без предварительного уведомления администрации.

ЗАДАТЬ ВОПРОС

НОВЫЕ ОТВЕТЫ

ПОХОЖИЕ ВОПРОСЫ