33554433 кб
килобита 1024*32*1024=
2^N = 5 --> N=3 бита для кодировки одного из пяти символов Ш К О Л А
3*15 = 45 бит = 6 байтов для одного пароля
30*6 = 180 байтов для тридцати паролей
Разбираем число N на цифры, а затем собираем в нужном порядке:
var n,n1,n2,n3,x:integer;
begin
write('n = ');
readln(n);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
x:=n3*100+n2*10+n1;
writeln('x = ',x);
end.
Пример 1:
<span>n = 25
x = 520
Пример 2:
</span><span>n = 823
x = 328</span>
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub