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

Question

Соломонида

10 июля, 18:53

+4

Ответы (1)

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

Евдокия · Answer 1

Program p1;

var a:byte;

Begin

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

Readln (a) ;

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

End.