С клавиатуры вводится трёхзначное число нужно вывести сумму 3-х его разрядов

С клавиатуры вводится трёхзначное число необходимо вывести сумму 3-х его разрядов

Задать свой вопрос
Shkabydov Dmitrij
Какой язык нужно?
Наталья Толашова
Паскаль
1 ответ

Program n_1;

var x:integer;

begin

   readln(x);

   x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);

   writeln(x);

end.


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


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

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

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

Войти на сайт