2 в степени 6 минус 1
Наибольшее число будет 1+2+4+8+16+32=63
Ответ: 63
Каждый бит - это или 1 или 0. Таким образом мы можем закодировать 6 битами числа от 0 до 63, всего 64 числа, но последнее натуральное - это 64
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var mn:=Arr('январь','февраль','март','апрель','май','июнь',
'июль','август','сентябрь','октябрь','ноябрь','декабрь');
var n:=ReadInteger('Номер месяца');
case n of
12,1,2:Write('Зима');
3,4,5:Write('Весна');
6,7,8:Write('Лето');
9,10,11:Write('Осень');
else begin
Writeln('Неверный номер');
exit
end
end;
Writeln(', ',mn[n-1],', предшествующий ',n=1?mn[11]:mn[n-2],
', следующий ',n=12?mn[0]:mn[n])
end.
<u>Пример</u>
Номер месяца 2
Зима, февраль, предшествующий январь, следующий март
K= 2 в степени а
a=Глубина цвета
M=количество точек по горизонтали
N=количество точек по вертикали
K=количество цветов
V=объём видеопамяти
K=2 =2 в 1 степени
a=1
V = M × N × a
V=800×480×1=384000 бит=48000 байт=46.875 кбайт
1) 2 мб = 2048 КБ
2048: 40 = 51,2( раза больше)
( если что : деление)
Решение №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.
