Дано трёхзначное число. Определить: является ли сумма его цифр двузначным числом

1

Ответы и объяснения

2012-04-11T17:41:23+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a,s:integer;

Begin

  read(a);

  repeat

    s:=s+a mod 10;

    a:=a div 10

  until a=10;

  if (s<100) and (s>9) then write('Yes')

  else write('No');

End.