Var
M1, M2, M3 :set of 0..9;
i:integer;
begin
M1 := [1, 2, 3];
M2 := [1, 4, 2, 5];
M3 := M1 * M2;
write('Результат: ');
for i:=0 to 9 do
if i in M3 then write(i)
else write('*');
writeln
end.
Тестовое решение:
Результат: *12*******
Ответ такой адрес сайта:
БГЖВАДЕ
Pascal ABC, например :)))
Сместиться в точку (1, 4)
опустить перо
сместиться в точку (1, 1)
сместиться в точку (5, 1)
сместиться в точку (5, 4)
сместиться в точку (1, 4)
сместиться в точку (3, 6)
сместиться в точку (5, 4)
поднять перо
сместиться в точку (2, 2)
опустить перо
сместиться в точку (2, 3)
сместиться в точку (4, 3)
сместиться в точку (4, 2)
сместиться в точку (2, 2)
Вероятность, того, что подошел автобус №25=1/2⁴=1/16
автобус №13 подходит к остановке в два раза реже, т.е. его вероятность 1/32. Следовательно 1/2⁵, 5 бит информации