Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8
Вот посмотри))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
В 1 мегапискеле = 1 000 000 пикселей
Следовательно 2 457 600 / 1 000 000= 2.457600;
Округляем до сотых : 2.46
Ответ : 2.46