Question

Найти среднее значение цифр заданного целого трехзначного числа.


Как можно быстро, пожалуйста!

Answer 1

Ответ:

var a,a12,a1,a2,a3,s: integer;

begin

readln(a);

a1:=a div 100;

a12:=a mod 100;

a2:=a12 div 10;

a3:=a12 mod 10;

s:=a1+a2+a3;

writeln(s);

end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

Объяснение:

надеюсь помогла,если не в падлу отметь как самый лучший ответ :3