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

Question

Вереника

20 ноября, 01:35

+4

Ответы (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.

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