Program gt;
var a:array[1..10]of integer;
p,n,i:integer;
begin
readln(n);
p:=0;
while n>0 do
begin
inc(a[n mod 10]);
n:=n div 10;
if(a[n mod 10]>1)then p:=1;
end;
if(p=1)then writeln('NO') else writeln('YES');
end.
var
month: integer;
Begin
Write('Введите номер месяца: ');ReadLn(month);
case month of
1..2, 12: Write('Зима');
3..5: Write('Весна');
6..8: Write('Лето');
9..11: Write('Осень');
end;
End.
XOR это логическое логическое сложение, оно истинно тогда, когда один из двух аргументов есть истинным.
<span>
х = 10110011</span><span>
у = В9 = </span>10111001<span>
тогда результат
х ксор у =
</span>10110011
10111001
<span>________
00001010
</span>
N=2^i.i=5, следовательно Каждый символ кодируется 5 битами.
33*59*2*5=19470(бит)=2433,75(байт)
0,5 кбайт = 512 байт = 4096 бит
больше на 3896 бит