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

Ответы 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.

    • Автор:

      levi22
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years