Выдаёт вот такую ошибку в "Сетевом городе" при попытки прикрепить файл к сообщению... Кто-нибудь знает как исправить? Ошибка обращения к базе данных (The operating system returned the error '112(Недостаточно места на диске.)' while attempting 'FsLogMgr::LogInternal:CreateFile' on '\\?\C:\Program Files\NetCity2\DB\nc20-21062016101049_fs\$FSLOG\fffeec9d-27a-fff5.00011362-00000d85-0002.29d4953f-ddb4-42ff-b11f-cae559e8594c~a9445b60-8bcc-4882-9dd7-e5cdaf60eb7b~00011362-00000d85-0002.1b39ead4-0.1000011'. The statement has been terminated. The operating system returned the error '112(Недостаточно места на диске.)' while attempting 'FsLogMgr::LogInternal:CreateFile' on '\\?\C:\Program Files\NetCity2\DB\nc20-21062016101049_fs\$FSLOG\fffeec9d-27a-fff5.00011362-00000d85-0002.29d4953f-ddb4-42ff-b11f-cae559e8594c~a9445b60-8bcc-4882-9dd7-e5cdaf60eb7b~00011362-00000d85-0002.1b39ead4-0.1000011'. The statement has been terminated.)
Ответы
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
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Определи, сколько листов в книге. Кто делал в Онлайн мектеп скиньте скрин зелёного ответа. 3 или 4 будет?
Автор: Катерина Телюкин925
Що робити якщо ноутбук не заходить на робочий стіл？
Автор: fhf3624
Переведите целые числа из десятичной системы в двоичную б) 600
Автор: museumuzl
Вывести на экран числа от 1 до n и от n до 1 в две строки
Автор: Olgax732
Що таке список?Наведіть приклади
Автор: Анатольевич447
2000 Байтов.
Объяснение:
В алфавите 16 букв. Зная это информацию, мы можем воспользоватся формулой Хартли - N = 2^i, где N - мощность алфавита, а i - вес одного символа. 16 = 2^4. В задаче говорится, что все слова этого языка состоят из 5 букв. Выполнив обычные умножение, мы можем узнать вес одного слова в битах. 5 * 4 = 20 бит - вес одного слова. Далее просто вес одного слова умножим на их количество. 20 * 8000 = 160000. Нас просят выразить информацию в Байтах, поэтому получившееся число разделим на 8, т.к. в одном Байте восемь бит информации. 160000 : 8 = 20000 Байтов - вес всех слов, составленных из букв алфавита.