Напишите программу, которая выводит все простые числа, являющиеся палиндромами (то есть имеющие симметричную запись в десятичной системе счисления), в диапазоне от k до n ( 2 ≤ k ≤ n ≤ 100000 ). программа должна вывести все простые числа, являющиеся палиндромами, в диапазоне от k до n в одну строку, разделив их пробелами. если таких чисел нет, нужно вывести число 0. pascal. нужен массив [2..100000]

261

443

Посмотреть ответы 2

Ответы на вопрос:

Хэймзон

Информатика

4,7(83 оценок)

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin var k: =readinteger('начальное значение (к): '); var n: =readinteger(' конечное значение (n): '); var notfound: =true; for var i: =k to n do begin var flag: =true; var j: =2; var r: =round(sqrt(i)); while flag and (j< =r) do if i mod j = 0 then flag: =false else j+=1; if flag then begin var s: =i.tostring; if s=s.inverse then begin print(i); notfound: =false end end end; if notfound then writeln(0) end. пример начальное значение (к): 2 конечное значение (n): 100000 2 3 5 7 11 101 131 151 181 191 313 353 373 383 727 757 787 797 919 929 10301 10501 10601 11311 11411 12421 12721 12821 13331 13831 13931 14341 14741 15451 15551 16061 16361 16561 16661 17471 17971 18181 18481 19391 19891 19991 30103 30203 30403 30703 30803 31013 31513 32323 32423 33533 34543 34843 35053 35153 35353 35753 36263 36563 37273 37573 38083 38183 38783 39293 70207 70507 70607 71317 71917 72227 72727 73037 73237 73637 74047 74747 75557 76367 76667 77377 77477 77977 78487 78787 78887 79397 79697 79997 90709 91019 93139 93239 93739 94049 94349 94649 94849 94949 95959 96269 96469 96769 97379 97579 97879 98389 98689

Osdit

Информатика

4,5(92 оценок)

Var a: array[1..10] of integer; sum,chet,s,i: integer; begin sum: =0; s: =0; chet: =0; for i: =1 to 10 do begin a[i]: =random(200)-100; writeln('a[',i,'] = ', a[i]); if a[i] > 0 then sum: =sum+a[i]; if a[i] mod 2 = 0 then chet: =chet+a[i]; if i< 6 then s: =s+a[i]; end; writeln('summa polozhitelnix = ',sum); writeln('summa chetnix = ',chet); writeln('simma pervix 5 = ', s); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.