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

trokhymukjulia trokhymukjulia    2   22.06.2019 11:00    2

Ответы
Sofi200011777 Sofi200011777  02.10.2020 08:18
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика