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

Question

Викторик

5 июля, 17:05

+3

Ответы (2)

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

Дарена · Answer 1

Program summ;

var x, s:integer;

begin

read (x) ;

s:=x div 10+x mod 10;

write (s) ;

end.

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

Готя · Answer 2

var

x, s:integer;

begin

readln (x) ;

s:=0;

s:=x div 10+x mod 10;

writeln (s) ;

end.