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

Question

Информатика

Тамарка

2 мая, 08:02

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

+5

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