Рисунок размером 1024*1024 пикселей сохранили в виде несжатого файла 1 мбайт.какое количество информации было использовано для кодирования цвета пикселей? какое максимальное возможное число цветов в палитре,соответствующей такой глубине цветов?
Начало:1.подойти к телефону,2.поднять трубку телефона,3.набрать номер друга,4.подождать пока друг поднимет трубку,5.поговорить с другом,6.поставить трубку на место,7.отойти от телефона. конец это линейный алгоритм.в линейном алгоритме шаги выполняются в той последовательности,в которой они записаны
function DifNum(a: integer): integer; var se: set of integer; i: integer; begin while a > 0 do begin if a mod 10 in se then begin DifNum := 0; exit; end else include(se, a mod 10); a := a div 10; end; DifNum := 1; end;
begin read(l, r); for i := l to r do counter += DifNum(i); writeln(counter); end.
//Альтернативное решение на Паскале
Var l,r:integer; begin read(l,r); writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.tostring)).Count); end.