Var k,i,m,j:integer;
begin
k:=0;
for i:=10000 to 99999 do
begin
m:=0;
for j:=2 to round(sqrt(i)) do
if i mod j = 0 then m:=m+1;
if m=0 then k:=k+1;
end;
writeln('k = ',k);
end.
Результат:
k = 8363
Ответ:
text=input()
text_list=list(text)
reverse_list=list(text[::-1])
error=None
for i in range(0,len(text_list)):
try:
if(text_list[i]!=reverse_list[i] and error==None):
error=len(text)-i
del text_list[len(text)-i-1]
del reverse_list[i]
elif(text_list[i]!=reverse_list[i] and error!=None):
error=0
break
except IndexError:
pass
print(error)
Объяснение:
P.S. оптимизация может быть не очень
Формула:
N=2^I
Мощность-кол-во информации,необходимое для кодирования 1 символа.
11 Кбайт=92274688 бит
92274688 бит:11264 символа=8192 бита необходимо,чтобы закодировать 1 символ. Ответ:N=1Кб
Такую надо состовлять самому!А вот простой алгоритм для аких случаев по этой проге вроде-
program jfe3;
const n=10; {Это будет кол-во элементов массива}
var a:array [1..n] of integer; i,s:integer;
begin
for i:=1 to n do begin
a[i]:=random(100); {элемент выбирается случайно от 0 до 100}
s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i:=1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось} END.