Помогите решить задачку Pascal Ввести целое положительное число и определить верно ли что сумма его цифр больше 15

Помогите решить задачку Pascal Ввести целое положительное число и определить верно ли что сумма его цифр больше 15
Гость
Ответ(ы) на вопрос:
Гость
var n,sum: integer; begin read(n); while (n>0) do begin  sum:=sum+(n mod 10);  n:=n div 10; end; if (sum>15) then write('Верно') else write('Неверно'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы