Question

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

Answer 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