Question

найти сумму четырехзначного числа на языке паскаль

Answer 1

program pro;
var k,a,sym:integer;
begin
readln(k);
while k>0 do 
begin 
a:=k mod 10; 
sym:=sym+a; 
 k:=k div 10; 
 end;
writeln('Сумма разрядов четырехзначного числа равна ',sym)
end.