Пользователь вводит трехзначное число, надо вычислить сумму чисел этого числа.

Question

Информатика

Нилыч

26 января, 17:43

Пользователь вводит трехзначное число, надо вычислить сумму чисел этого числа.

+3

Ответы (1)

Знаете ответ?

Лаврич · Answer 1

Var x, a, b, c:integer;

begin

write ('Введите число: ') ; read (x) ;

a:=x div 100;

b:=x div 10 mod 10;

c:=x mod 10;

writeln ('сумма цифр: ', a+b+c) ;

end.