Найти сумму двух цифр заданного двузначного числа в pascal

Question

Информатика

Веруня

12 декабря, 02:44

Найти сумму двух цифр заданного двузначного числа в pascal

+5

Ответы (1)

Знаете ответ на вопрос?

Аксентий · Answer 1

Var s:integer;

begin

writeln ('Введите двухзначное число ') ;

read (s) ;

if ((s-10)) or ((s>=-100) and (s<=-100))

then writeln ('Число неверно')

else begin

s: = (s div 10) + (s mod 10) ;

writeln (s) ;

end;

end.