М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Введите трехзначное число и выведите среднюю цифру.(пояснение: примените операции div и mod)

👇
Ответ:
KuroKei6
KuroKei6
15.04.2020

var i:integer;

begin

readln(i);

writeln((i div 10) mod 10);

end.

4,5(72 оценок)
Открыть все ответы
Ответ:
Лёха1243232
Лёха1243232
15.04.2020
//Боль
//Pascal ABC.NET 3.1 сборка 1219

Var
 f:text;
 max,min,p:real;
 maxn,minn,n,i:integer;
 ar:array of real;
 s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
 assign(f,'text.txt');
 reset(f);
 while not(Eof(f)) do
  begin
   read(f,p);
   inc(n);
   setlength(ar,n);
   ar[n-1]:=p;
   if ar[n-1]>max then
    begin
     max:=ar[n-1];
     maxn:=n-1;
    end;
   if ar[n-1]<min then
    begin
     min:=ar[n-1];
     minn:=n-1;
    end;
  end;
 close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.

Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1
4,4(42 оценок)
Ответ:
Alina9392010
Alina9392010
15.04.2020

В условии задания подразумевается, записываемое при минимально возможного количества бит записывает информацию в двоичной системе счисления. Используя формула N=2i (обратная формула Хартли), найдем кол-во необходимых бит при которой N будет равна или больше -25 до 25. Получается, необходимо ваше количество бит, ( пример 111 = 7, 1111 = 15 ). Соответственно, для одной записи 1 измененияя потребуется вашечисло бит. Поскольку засуткибыло 12 изменений, то информационный объем сообщения составит ваше число бит *12 = ответ бит

ОТВЕТ 

4,8(97 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ