Подумай и ответь на вопросы устно: - Какие арифметические операции можно выполнять с числами? - Как - id1693676920221013 от 20yanushkevich04 13.10.2022 05:33

Question

Информатика: Подумай и ответь на вопросы устно: - Какие арифметические операции можно выполнять с числами? - Как ты думаешь, есть разница между записью арифметических выражений в тетради на математике и на языке Python? Если ответ - «да», то в чем

20yanushkevich04 · Accepted Answer

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

MOGZ ответил