Question

Помогите пожалуйста. Нужно составить программу, вычисляющую сумму чисел четырехзначного числа.

Answer 1

var x,z,sum:integer; i:byte;
begin
readln(x); sum:=0;
for i:=1 to 4 do begin
z:=x mod 10;
sum:=sum+z;
x:=x div 10;end;
writeln(sum);readln; end.