Pascal, сумма цифр

[efg]

Нужно найти сумму цифр двух целых двухзначных чисел a и b, написав функцию определения цифр в числе.

var a,b,c:integer;
Procedure summa(x,y:integer; car z:integer);
Begin
Z:=x+y
End;
Begin writeln(‘Напишите 2 двухзначных числа’);
Write (‘a=‘);
Readln(a);
Write(‘b=‘);
Readln(b);
If (a>=10) and (a<=99) and (b>=10) and (b<=99) then
Begin
Summa(a,b,c);
Write(‘c=‘,c);
End
Else
Write(‘число не соответствует условию’);
End.

Нужно найти сумму цифр, а не сумму чисел нужно как то внедрить mod и div, помогите.


______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Serge_Bliznykov]

Сообщение от efg

написав функцию определения цифр в числе.

функция нахождения суммы цифр в ДВУХЗНАЧНОМ числе:

function summa(x:integer):integer;
begin
  summa := (x div 10) + (x mod 10);
end;

или, если писать с проверкой на ОДЗ:

	
	
function summa(x:integer):integer;
begin
  if (x<10) or (x>99) then summa := -1
  else  summa := (x div 10) + (x mod 10);
end;