Составьте программу решения следующей задачи: С клавиатуры вводится двузначное число a. Найти сумму его цифр.

Question

Тося

27 декабря, 22:04

+1

Ответы (1)

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

Витя · Answer 1

Program p1;

var a:byte;

Begin

Write ('Введите а, а=') ;

Readln (a) ;

Writeln ('Сумма цифр = ', a div 10 + a mod 10) ;

End.