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

Question

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

Comments

Откуда брать эти 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