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

Question

Мартина

16 сентября, 14:21

+4

Ответы (2)

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

Юрченя · Answer 1

Program summ;

var x, s:integer;

begin

read (x) ;

s:=x div 10+x mod 10;

write (s) ;

end.

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

Мироныч · Answer 2

Var

x, s:integer;

begin

readln (x) ;

s:=0;

s:=x div 10+x mod 10;

writeln (s) ;

end.