составить программу вычисления суммы цифр введенного с клавиатуры 3 - х значного натурального числа. Например для числа 128 сумма цифр 11, а для числа 345 сумма цифр12.

Question

Информатика

Аристид

30 апреля, 23:33

составить программу вычисления суммы цифр введенного с клавиатуры 3 - х значного натурального числа. Например для числа 128 сумма цифр 11, а для числа 345 сумма цифр12.

+3

Ответы (2)

Знаете ответ на вопрос?

Апросинья · Answer 1

Program gt;

var n, s:integer;

begin

readln (n) ;

s: = (n div 100) + (n div 10) mod 10 + (n mod 10) ;

writeln (s) ;

end.

каждая скобка это 1 2 3 цифра соответсвенно

Иустин · Answer 2

Var a, N, sum:word;

begin

Read (N) ;

Sum:=0;

While N0 do

begin

a:=N mod 10;

N:=N div 10;

Sum:=sum+a;

end;

Write (sum) ;

end.

Или по-простому еще так:

Var a, b, c, N:word;

begin

Read (N) ;

a:=N mod 10;

b: = (N mod 100) div 10;

c:=N div 100;

Write (a+b+c) ;

end.