Дано натуральное число. Верно ли, что сумма его цифр больше 10? Paskal

Question

Дано натуральное число. Верно ли, что сумма его цифр больше 10? Paskal

Answer 1

Паскаль пишется как Pascal.

 

var

  a, sum : integer;

begin

  read (a);

  sum := 0;

  while (sum <= 10) and (a > 0) do

  begin

    sum := sum + a mod 10;

    a := a div 10;

  end;

  if sum > 10 then write ('Yes') else write ('No');

end.