Дана 3-х значное число отыскать сумму её цифр

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

Арсений Чемикос 2019-09-06 22:12:28

да

Лебухорская Злата 2019-09-06 22:19:30

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

Люба Шеремета 2019-09-06 22:24:22

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

Игорек Гусков 2019-09-06 22:29:32

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

Васек Дед 2019-09-06 22:32:07

Вы на уроках по другому пишите?

Антонина Радько 2019-09-06 22:38:15

не знаю

Ljudmila Balynskaja 2019-09-06 22:39:58

не разумею икт

Полинка Пино 2019-09-06 22:40:52

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

Сейнас Оксана 2019-09-06 22:45:39

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

Колек Янышев 2019-09-06 22:55:33

спасибо

О проекте

Дана 3-х значное число отыскать сумму её цифр

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