Помогите решить задачку Pascal

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

Question

Информатика

Васюра

14 марта, 18:17

Помогите решить задачку Pascal

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

+5

Ответы (1)

Знаете ответ на вопрос?

Варфоломей · Answer 1

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.

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

Помогите решить задачку Pascal

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