Найдите сумму цифр четырёхзначного числа 1234 ** языке паскаль.

Question

Найдите сумму цифр четырёхзначного числа 1234 на языке паскаль.

Answer 1

Var a,b,c,d,x:integer;
begin
x:=1234;
a:=x mod 10;
b:=((x mod 100) div 10);
c:=((x mod 1000) div 100);
d:=x div 1000;
x:=a+b+c+d;
writeln (x);
end.