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

На вход программки поступает естественное число . Требуется найти сумму цифр в десятичной записи этого числа , которые кратны 3(считается , что 0 кратно любому числу). Если в числе нет цифр , кратных 3, нужно на экран вывести "NO".

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

//PascalABC.NET v3.3 1633

begin

 var num:=ReadString('Введите натуральное число: ');

 

 var sum:=0;

 for var i:=1 to num.Length do

   if StrToInt(num[i]) mod 3 = 0 then

     sum += StrToInt(num[i]);

 if sum = 0 then

   writeln('NO')

 else

   writeln('Сумма цифр,кратных 3 одинакова '+sum);

end.

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


Последние вопросы

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

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

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

Войти на сайт