Вводится трёхзначное число. Найдите и выведите сумму его цифр. Ответ прикрепите в виде - №5215841

Вводится трёхзначное число. Найдите и выведите сумму его цифр. Ответ прикрепите в виде файла в среде PascalABC.
- Предмет:
  Информатика
- Автор:
  jordynu24g
- 5 лет назад

Ответы 1

var a:integer;beginread (a);if (a mod 10<1) or (a div 100 < 1) or ((a mod 100) div 10 < 1) or (a div 1000 >= 1) then beginwriteln ('Неверный ввод');halt;end elsebeginwriteln ((a mod 10) + (a div 100) + ((a mod 100) div 10));end end.
- Автор:
  nikki69
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years