Написать программку, которая после ввода пользователем трёхзначного числа вычисляет сумму его

Написать программку, которая после ввода пользователем трёхзначного числа вычисляет сумму его цифр.

Задать свой вопрос
1 ответ

var a,a1,a2,a3 : integer;  

begin

  readln(a);

  a1:=a div 100;

  a2:=(a mod 100) div 10;

  a3:=(a mod 100) mod 10;

  writeln(a1+a2+a3);

end.

 а - само число, а1-число сотен, а2-число 10-ов, а3-число единиц

 

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт