Найти сумму цифр четырёхзначного числа

Найти сумму цифр четырёхзначного числа
Гость
Ответ(ы) на вопрос:
Гость
var a,b,c,e,f,s:integer; begin    b:=a mod 10;    c:=a div 10 mod 10;    d:=a div 100 mod 10;    e:=a div 1000;    s:=c+d=e+b; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы