Дано трёхзначное число. Определить: является ли сумма его цифр двузначным числом
Дано трёхзначное число. Определить: является ли сумма его цифр двузначным числом
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы