Для каждого числа найти сумму цифр

@maksimelyan · Регистрация: 07.09.2016

Всем привет. Нужна помощь по задаче.Вести три числа a,b,c. Для каждого числа найти и вывести на экран сумму цифр.(использовать функцию)Вот моя программа.Только у меня одна проблема вот у меня получается a=52,а мне нужно чтобы было 5+2 и тд. Заранее спасибо.

Pascal

var a,b,c: integer; 
function SummNumber(a,b,c: integer): integer;
   var summ: integer;
begin
   summ := a+b+c;
   SummNumber:= summ;
end;
begin
   write(' Введите a= ');
   read(a);
   write(' Введите  b= ');
   read(b);
   write(' Введите c= ');
   read(c);
   writeln('сумма = '+SummNumber(a,b,c));
 
end.

@Puporev · 18.10.2016, 16:52

Pascal

function SummNumber(a: integer): integer;
var summ: integer;
begin
summ := 0;
while a>0 do
 begin
  summ:=summ+a mod 10;
  a:=a div 10;
 end;
SummNumber:= summ;
end;
var a,b,c: integer;
begin
write(' Введите a= ');
readln(a);
writeln('Сумма цифр=',SummNumber(a));
write(' Введите  b= ');
readln(b);
writeln('Сумма цифр=',SummNumber(b));
write(' Введите c= ');
readln(c);
writeln('Сумма цифр=',SummNumber(c));
end.

Опции темы