1+1=2*2=4+1=5
1+1=2+1=3*2=6*2=12*2=24+1=25*2=50
1*2=2+1=3*2=6*2=12*2=24*2=48+1=49*2=98+1=99
Div-целая часть от деления
mod-остаток от деления
допустим поделим 25:4=6.25
где 6 - div
где 25 - mod
------------------------
x=336
y=8
x=x div y = 336 div 8 = 42 , тк тут нет остатка так и остается
y=x mod y = 42 mod 8 = 5.25 , но там нужен mod значит 25
Var
i, n, j, p, s: longint;
st: string;
b: boolean;
begin
s := 0;
b := false;
readln(n);
for i := 1 to n.ToString.Length do
s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
begin
st := i.ToString;
p := 1;
for j := 1 to st.Length do
p := p * strtoint(st[j]);
if(p = s) then begin b := true;writeln(i); end;
end;
if(b = false) then write('Нет');
end.
Для палитры 65536 цветов требуется 16 бит или 2 байта на точку.
Перемножим все данные и получим:
1024*768*2=1572864 байт=1536 кбайт = 1,5 Мбайт
A * b * g = c примерно так и ответ