Дана трех значное число найти сумму её цифр

Question

Дана трех значное число найти сумму её цифр

Comments

Паскаль?

---

да

---

да

Answer 1

Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn('Сумма его цифр равна: ',(A div 100)+((A div 10) mod 10 )+(A mod 10));
End.

Comments

да

---

"а это точно ? " можете скачать PascalABC.net - и проверить

---

а мне так же писать трех значное число ?там в скобках

---

введите трехзначное число*

---

Вы на уроках иначе пишите?

---

не знаю

---

не понимаю икт

---

WriteLn('Введите трёхзначное число'); - выводит на экран то, что в скобках. В данном случае выводи сообщение, заключённое в апострофы

---

ReadLn(A); - считывает с клавиатуры число и записывает его в переменную A

---

спасибо