Решение №1
var x,y:integer;
begin
readln(x,y);
if x> y then begin
   x:=x+y;
   y:=x-y;
   x:=x-y;
   writeln(x,' ',y);
end.

Тестовое решение:
8 5
5 8

Решение №2
На PascalABC.Net можно сделать проще:

var x,y:integer;
begin
readln(x,y);
if x>y then begin swap(x,y); println(x,y); end;
end.

0 0

4 года назад

Число 100 в двоичной системе

Ирина Трепалина

1100100

я это сделал в калькуляторе

если калькулятор на компе то берёшь открываешь калькулятор пишешь 100 сверху есть опции: вид правка справка заходишь в вид выбираешь программист и потом выбираешь справа bin

0 0

4 года назад

Информ. сообщение объемом 3 кб содержит 6144 символа.Сколько символов содержит алфавит при помощи которого было записано сообщен

AlIssssaaa

3Кбайта = 3072 Байта

Размер поделим на кол-во символов, что бы узнать, сколько занимает 1 символ.

$3072/6144=0.5$ Байт

0.5 Байт = 4 Бита - занимает 1 символ.

$2^{4}=16$

Значит, алфавит состоит из 16 символов.

0 0

4 года назад