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

Question

72

в избранное ссылка

Знаете ответ?

steelheart · Accepted Answer

51

steelheart

19 апреля 2023

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.

комментировать

в избранное ссылка отблагодарить