• Помогите с задачкой (Паскаль)
    Вычислить отношение количества цифры 5 к количеству цифры 1 (если цифры 1 нет, результат не вычислять)

Ответы 1

  • PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var n:=ReadlnString('Введите натуральное число:');

     var r:BigInteger;

     if not BigInteger.TryParse(n,r) then

       Print('Некорректная запись')

     else

     begin

       var k5:=n.Where(c->c='5').Count;

       var k1:=n.Where(c->c='1').Count;

       if k1>0 then Print(k5/k1)

     end

    end.

    Пример

    Введите натуральное число: 23476587043021143411395684657323634254554

    1.5

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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