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

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

Question

Информатика

Юня

4 июля, 04:28

Помогите решить задачку 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