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

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

Задать свой вопрос
Вадим Наваров
Откуда брать эти 5 и 1 ?
Леонид Арушанян
я так понял, что 5 вначале присваиваем, а 1 вводим с клавиатуры
Прашенников Пашка
Да. Я сообразил, Вы не в теме.
Игорек
это точно
Kusnirovich Artemij
Неясно. То ли это текст, то ли число, то ли файл с безызвестным содержимым, то ли какой-то генератор.....
Инна Завтонова
Вообще эта задачка из темы итерационных циклов, подтема "Обработка цифр в записи естественного числа", может это чем-то поможет
Роман Кация
Природно. По последней мере светло, что надобно сопоставлять числа в данном естественном числе.
Shamyrina Miroslava
А не ноябрьские сводке о ценах на дровах в порту Тикси.
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-gt;c='5').Count;

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

   if k1gt;0 then Print(k5/k1)

 end

end.

Пример

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

1.5

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт