Написать программу нахождения суммы цифр трехзначного числа (для отрицательных и положительных чисел)

Question

Информатика

Павлина

6 ноября, 17:02

Написать программу нахождения суммы цифр трехзначного числа (для отрицательных и положительных чисел)

+3

Ответы (1)

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

Матюша · Answer 1

Program zzadani;

Var n, b, a, c:integer;

Begin

Writeln ('Введите трехзначное число') ;

Readln (n) ;

a:=n div 100;

b: = (n div 10) mod 10;

c: = (n mod 100) mod 10;

n:=a+b+c;

Writeln ('Сумма цифр данного числа=', n) ;

End.