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

Question

Информатика

Нилыч

12 ноября, 04:26

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

+4

Ответы (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.