Паскаль. Сумма цифр числа

[tsa1993]

Паскаль. Сумма цифр числа

помогите решить задачу. срочно нужно! завтра уже сдавать. НАПИСАТЬ ПРОГРАММУ КОТОРАЯ ОПРЕДЕЛЯЕТ СУММУ ЦИФР ПЯТИЗНАЧНОГО ЧИСЛА. Пожалуйста срочно:tehnari_ru_325:

 

[Vladimir_S]

помогите решить задачу. срочно нужно! завтра уже сдавать. НАПИСАТЬ ПРОГРАММУ КОТОРАЯ ОПРЕДЕЛЯЕТ СУММУ ЦИФР ПЯТИЗНАЧНОГО ЧИСЛА. Пожалуйста срочно:tehnari_ru_325:

Да пожалуйста - какие проблемы?

var
 n,d:Longint;
 Sum,i:Byte;
begin
 Sum:=0;
 d:=10000;
 write('N= ');
 readln(n);
 For i:=1 to 5 do
  begin
   Sum:=Sum+(N div d);
   N:=N mod d;
   d:=d div 10;
  end;
 writeln('Sum= ',Sum);
 readln;
end.