Вопрос по информатике:
Взяли миллион первых натуральных десятичных чисел и вычеркнули все простые числа. Из оставшейся последовательности вычеркнули палиндромы (числа, кроме однозначных, одинаково читающиеся с начала и с конца, например 121, 33433, 8888). Из оставшейся последовательности вычеркнули числа, содержащие 0 в десятичной записи. В результате от миллиона первых натуральных чисел осталось всего ____ числа (чисел).
- 16.06.2018 23:45
- Информатика
- remove_red_eye 17001
- thumb_up 26
Ответы и объяснения 1
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
- 17.06.2018 06:29
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.