ввести целое число и найти сумму его цифр ( с выводом \"Сумма цифр числа \", a ,\" равна \", b) кумир
4
(2 оценки)
2
5
(1 оценка)
0
AnonimusPro
6 лет назад
Светило науки - 5115 ответов - 11360 раз оказано помощи
алг
нач
цел a,b,t
ввод a
t:=a;
b:=0;
нц пока t<>0
b:=b+mod(t,10);
t:=div(t,10);
кц
вывод 'сумма цифр числа ',a,' равна ',b
кон
нач
цел a,b,t
ввод a
t:=a;
b:=0;
нц пока t<>0
b:=b+mod(t,10);
t:=div(t,10);
кц
вывод 'сумма цифр числа ',a,' равна ',b
кон
нач
цел a, n, b
вывод "Введите целое число", нс
ввод a
n:= a
b:= 0
нц пока n<>0
b:= b+mod(n,10)
n:= div(n,10)
кц
вывод "Сумма цифр числа ", a ," равна ", b
кон