var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.
Размер изображения 64*64 - значит всего точек в изображении 64*64=4096 точки.
для хранения выделено 512 байт, или 512*8 = 4096 бит
итого: на одну точку приходится 4096/4096 = 1 бит (информации для кодирования цвета одной точки)
по формуле N=2(в степени i), где N - кол-во цветов, а i - кол-во бит информации на точку, получаем, что наше N = 2 (в степени 1) = 2.
Т.е. Ответ 2 цвета
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем',
'Мороз ИЛья','Павлова','Глухих');
s.Println;
s:=s.OrderBy(t->t.ToUpper).ToArray;
s.Println
end.
4 вопрос. знаки нельзя ставить в назв.