Var
a, b, c, sum: integer;
function min(x, y: integer): integer;
begin
if(x > y) then result := y
else result := x;
end;
begin
sum := 0;
read(a, b, c);
a := min(a, min(b, c));
while a > 0 do
begin
if(a mod 10 mod 2 <> 0) then sum := sum + a mod 10;
a := a div 10;
end;
write(sum);
end.
Можно сказать точно, если изображение без сжатия (типа bmp)
На один пиксел приходилось 9 бит, теперь требуется 3, следовательно в 3 раза
Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью