Написать алгоритм нахождения суммы цифр трехзначного числа (использовать функции div и mod)

x div 100 + (x div 10) mod 10 + x mod 10

Объяснение:

дано трехзначное число x

первая цифра данного числа м.б. получена целочисленным делением этого числа на 100:

n1 = x div 100

вторая делением числа на 10 и получением остатка от деления на 10

n2 = (x div 10) mod 10

третья получением остатка от деления числа на 10

n3 = x mod 10

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")