Код программы:
var a:array[1..27] of integer;
b, i, c, ind:integer;
begin
a[1]:= 72;
a[2]:= 76;
a[3]:= 92;
a[4]:= 45;
a[5]:= 55;
a[6]:= 82;
a[7]:= 46;
a[8]:= 39;
a[9]:= 78;
a[10]:=50;
a[11]:=34;
a[12]:=71;
a[13]:=44;
a[14]:= 92;
a[15]:= 38;
a[16]:= 51;
a[17]:= 6;
a[18]:= 45;
a[19]:= 66;
a[20]:= 78;
a[21]:= 19;
a[22]:= 17;
a[23]:= 42;
a[24]:= 36;
a[25]:= 34;
a[26]:= 91;
a[27]:= 61;
writeln('Введите число');
readln(b);
if ((b >= 0) and (b <= 100)) then begin
c:=abs(b - a[1]);
for i:=2 to 27 do begin
if(abs(b - a[i]) <=c) then begin
c:=abs(b - a[i]);
ind:=i;
end;
end;
writeln('Результат: ', a[ind]);
end
else
writeln('Ошибка, число должно быть больше 0 и меньше 100');
end.
ответ:
особенности
кроссплатформенность - возможность установки базы данных на любую операционную систему - unix, windows. базу данных можно использовать как локально (внутри сети организации) так и (в сети интернет)
настраиваемость - нашу базу данных легко установить, настроить (настройку и стартовое использование базы данных можно попробовать на нашем сайте) и использовать. в базе данных возможна настройка отчетов согласно собственным шаблонам.
многопользовательский доступ - администратор базы данных создает пользователей и дает им права на доступ к базе данных по своему усмотрению
мобильность - в варианте с размещением в сети - доступ к базе данных возможен с любых устройств имеющим доступ к интернету
брендирование - интерфейс базы данных легко брендируется логотипом и цветами вашей компании
мультиязычность - в базу данных включена возможность перевода на различные языки стран
безопасность и архивация - возможность настройки безопасного копирования и архивации информации, любая работа в системе автоматически записывается и доступна для администратора базы данных
40х60= 2400символов
2400х8:8= 2400 байт
16кб= 16х1024= ...
полученное число делишь на 2400 и получаешь ответ