Вбарабане для проведения лотереи находится шары с порядковыми номерами, начиная с 1. сообщение о том, что выпал шар с номером 10, несет5 бит информации. сколько шаров в барабане?

149

417

Посмотреть ответы 1

Ответы на вопрос:

bezhkinyova

Информатика

4,7(60 оценок)

//pascal abc.net версия 2.2 сборка 790 var a,b: string; i,j,k: integer; begin; readln(a); readln(b); for i: =1 to length(a) do begin; for j: =1 to length(b) do begin; if a[i]=b[j] then begin; delete(b,j,1); inc(k); end; end; end; if k=length(a) then writeln('да') else writeln('нет'); end. пример ввода: abc cba пример вывода: да