Дано двузначное число, определить в нём сумму цифр

Question

Мартина

6 сентября, 06:43

+1

Ответы (2)

Знаете ответ?

Мироныч · Answer 1

Var

x, s:integer;

begin

readln (x) ;

s:=0;

s:=x div 10+x mod 10;

writeln (s) ;

end.

Юрченя · Answer 2

Program summ;

var x, s:integer;

begin

read (x) ;

s:=x div 10+x mod 10;

write (s) ;

end.

Например, вводим число 49, в ответе получаем s=13.