<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(20,-20,60); a.Println;
var x:=ReadInteger('Какое число ищем?');
if a.Contains(x) then Writeln('Такое число есть')
else Writeln('Такого числа нет')
end.
<u>Примеры</u>
42 23 59 0 20 23 41 26 47 8 23 42 20 35 31 53 -4 53 8 14
Какое число ищем? 25
Такого числа нет
15 1 44 40 55 3 31 -12 29 33 4 -13 -12 43 -14 51 44 -2 41 18
Какое число ищем? -12
Такое число есть
Uses drawman;beginfield(23,5);topoint(1,4);pendown;topoint(1,2);topoint(4,2);topoint(4,4);topoint(1,4);penup;topoint(3,3);pendown;topoint(3,1);topoint(6,1);topoint(6,3);topoint(3,3);penup;topoint(5,4);pendown;topoint(5,2);topoint(8,2);topoint(8,4);topoint(5,4);penup;topoint(7,3);pendown;topoint(7,1);topoint(10,1);topoint(10,3);topoint(7,3);penup;topoint(9,4);pendown;topoint(9,2);topoint(12,2);topoint(12,4);topoint(9,4);penup;topoint(11,3);pendown;topoint(11,1);topoint(14,1);topoint(14,3);topoint(11,3);penup;topoint(13,4);pendown;topoint(13,2);topoint(16,2);topoint(16,4);topoint(13,4);penup;topoint(15,3);pendown;topoint(15,1);topoint(18,1);topoint(18,3);topoint(15,3);penup;topoint(17,4);pendown;topoint(17,2);topoint(20,2);topoint(20,4);topoint(17,4);penup;topoint(19,3);pendown;topoint(19,1);topoint(22,1);topoint(22,3);topoint(19,3);penup;end.
If b%a==0: print ('YES')
Else: print ('NO')
Если в алфавите 32 символа, то для записи одного символа требуется log(2)32 = 5 бит.
Объем сообщения:
4*64*16*5 бит = 4*64*16*5/8 байт = 32*16*5/1024 Кбайт = 2,5 Кбайт
