Вопрос от посетителя
дано трёхзначное число. Определить: является ли сумма его цифр двузначным числом
Отвечает Илюха:
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.