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

Question

Информатика

Мартимьян

22 февраля, 07:10

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

+1

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