k = 1536
I = 3 Кбайт = 3 * 8 * 1024 = 24576 Бит
i = 24576 / 1536 = 16
N = 2 ** i
N = 2 ** 16
N = 65536.
Ответ: Мощность алфавита равна 65536
Var
x,y: integer;
v: integer;
begin
write('Введите x,y: ');
readln(x,y);
if x>y then
begin
v := x;
x := y;
y := v
end;
writeln('Результат упорядочения по возрастанию: ',x,' ',y);
end.
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите номер месяца (1-12):');
case n of
3,4,5:Writeln('Весна');
6,7,8:Writeln('Лето');
9,10,11:Writeln('Осень');
12,1,2:Writeln('Зима')
else Writeln('Неверный номер')
end
end.