64*512=32768 точек
32*1024*8=262144 бит
262144/32768=8 - это глубина цвета
а количество цветов равно 2^ 8 =256
значит правильный ответ 256.
Var a: string;
s: integer;
begin
s := 0;
write ('Привет! Введи пароль: ');
readln (a);
while a<>'qwerty' do
begin
s := s+1;
write ('Не угадал! Введи пароль: ');
readln (a)
end;
writeln ('Теперь пароль введён верно! Количество попыток: ',s)
end.
Например:
Звезда это О, их свойства это С
в О название звезды, в С удаленность от солнца, масса
Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так
101101110= 556 (Р=8), 10100100= 244 (Р=8) .... Вроде так