Question

написать программу для нахождения суммы цифр 4-х-значного числа .Помогите пожалуйста

Answer 1

pascal

var

 a,s,i: integer;

 begin

   writeln('введите 4-х значное число');

 readln(a);

  for i:=1 to 4 do begin

     s:=s+a mod 10;

     a:=a div 10

   end;  

   writeln(s)

 end.