Var a,b,c:integer; function min(x1,x2:integer):integer; begin if x1<x2 then min:=x1 else min:=x2; end; function max(x1,x2:integer):integer; begin if x1<x2 then max:=x2 else max:=x1; end; begin readln(a,b,c); writeln( max( max(a,b) ,c ) - min ( min(a,b), c) ); end.
Для начала посчитаем сколько символов в твоем предложении (пробелы, знаки препинания, буквы). Их там 28 [Терпение и труд все перетрут]. Как мы знаем, в кодировке Unicode - 1 символ занимает 16 бит памяти. Умножим 28 символов на 16 и получим 448 бит [28*16=448 бит]. Теперь, если это требуется, переведем биты в байты и килобайты. 1 байт памяти занимает 8 бит. Делим 448 бит на 8 получаем 56 [448/8=56 байт]. 1 кбайт памяти, в свою очередь, занимает 1024 байт памяти. Делим 56 байт на 1024 (советую использовать калькулятор) получаем 0,05 кбайт [56/1024=0,0546875]. В ответе пишем одно из получившихся значений, которое требуется написать [448 бит или 56 байт или 0,05 кбайт]
Информация для человека - это содержание сигналов (сообщения), воспринимаемых человеком непосредственно или с специальных устройств, расширяющее его знания об окружающем мире и протекающих в нём процессах.Сигналы могут быть непрерывными или дискретными.Непрерывный сигнал принимает бесконечное множество значений из некоторого диапазона. Между значениями, которые он принимает, нет разрывов.Дискретный сигнал принимает конечное число значений. Все значения дискретного сигнала можно пронумеровать целыми числами. но я не уверен что правильно
function min(x1,x2:integer):integer;
begin
if x1<x2 then min:=x1 else min:=x2;
end;
function max(x1,x2:integer):integer;
begin
if x1<x2 then max:=x2 else max:=x1;
end;
begin
readln(a,b,c);
writeln( max( max(a,b) ,c ) - min ( min(a,b), c) );
end.