//PascalABC.NET
//Версия 3.3, сборка 1634
function f(n: integer): integer;
begin
var fx:=1;
for var i:=2 to n do fx:=fx*i;
f:=fx;
end;
begin
var n:=ReadInteger('n=');
for var i:=0 to 9 do writeln('цифра ',i,' повторяется в числе ',f(n),' ',f(n).ToString.Where(x->x.ToDigit=i).Count,' раз' );
end.
Расстоянием между строк называется интерлиньяж
Общее количество пикселей: 640*200= 128000
Глубина цвета = Объем видеопамяти(бит)/количество пикселей= (100*1024*8)/128000 = 6,4 бит
Количество цветов определим из формулы: N=2^i, где i - количество бит на пиксель.
N= 2^6= 64
Ответ: 64 цвета
0 0
8 0
5 3
5 0
2 3
2 0
0 2
8 2
7 3
7 0
4 3
Первая цифра-кувшин 8л,вторая цифра кувшин 3 л. Набираем кувшин 8 л и переливаем из него жидкость в кувшин 3л.Потом из 3л выливаем жидкость. Повторяем пока не получиться 4л.