Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания. пример: введите три натуральных числа: 10 15 5 5 10 15 для паскаля, без массива
Var x,y,z:integer; procedure p(var a,b,c:integer); var t:integer; begin if a>b then begin t:=a; a:=b; b:=t; end; if b>c then begin t:=b; b:=c; c:=t; end; if a>b then begin t:=a; a:=b; b:=t; end; end; begin writeln('Введите 3 числа:'); readln(x,y,z); p(x,y,z); writeln('x = ',x,' y = ',y,' z = ',z); end.
Информационная культура должна быть. Бывает мы отправляем друг другу исковерканные сообщения, чтобы быстрей что-то донести получателю. Как это вдруг становиться нормой. Хамство, сокращенная запись, обилие ошибок и сленга - вот возможный результат лица современного интернет общества. Конечно есть исключения. Конечно есть, ведь как у любого организованного обещства должны быть модераторы, эдакие проверяльщики, делающие информационное поле чище. Информационная перегрузка - её не избежать. Нужно научиться жить в этом. Так мы и делаем. Фильтруем, отсекаем, игнорируем нежелательную, ненужную информацию для себя. Иногда перегружаемся информацией, тут простой отдых, отвлечение, переключение внимания, сон. А информационная война это вообще страшное дело и кроме как вреда она ничего другого принести не может.
1. Бит, байт, килобайт, мегабайт, гигабайт, терабайт, петабайт, эксабайт, зеттабайт, йоттабайт. 2. Байт = 8 Бит. Каждая следующая еденица информации больше за предущую в 1024 разы. 3. (Не знаю, может например какой то текст размером с страницу). 4. параллелепипед - 14 символов (стандартно 1 символ - это 1 байт информации, а соответственно, это слово занимает 14 байт). 5. Каждый символ в алфавите имеет свой порядковый номер, и то, насколько велик этот номер, определяет, сколько будет занимать данный символ байт. 6. Нет, не совпадает, потому что разные языки имеют разное количество букв (символов), а соответственно требуется разное количество байт для представления символов разных языков. Для примера можно привести тексты на русском и китайском языке. 7.По моему мнению, информация передается безопасно, когда используется надежная кодировка информации, присутствует защищенный надежный канал связи.
procedure p(var a,b,c:integer);
var t:integer;
begin
if a>b then
begin t:=a; a:=b; b:=t; end;
if b>c then
begin t:=b; b:=c; c:=t; end;
if a>b then
begin t:=a; a:=b; b:=t; end;
end;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
p(x,y,z);
writeln('x = ',x,' y = ',y,' z = ',z);
end.
Пример:
Введите 3 числа:
8 5 2
x = 2 y = 5 z = 8