С(паскаль) вычислить отношение количества цифры 5 к количеству цифры 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

Екі өлшемді суреттерді жасаудың механизмі 1860 жылдары ұсынылды. Механизм зоотроп, мутоскоп, праксиноскоп деп аталатын құрылғылардан тұрады. Бұл құрылғылар көрермендердің қабылдау инерциясы деп аталатын құбылысты жасады. Ол қозғалатын суреттерді әсерлі етіп жасау үшін жеткілікті үлкен жылдамдықпен көрсетілетін стопкадрлардың тізбегінен тұрды. Целлулоид пленкалардың немесе стоп-кадрлардың дамуы нақты уақыт режимінде дененің қозғалысын жазу мүмкіндігін берді. Кино-камералардың, кинопроекторлар мен көшіру пленкаларының дамуы нәтижесінде кескіндерді үлкейту және оны көрермендер үшін үлкен экранда көрсету мүмкіндігі болды, ол катушкадағы жеке омега компоненттерді жазу және сақтау арқылы іске асырылды

Объяснение:

32 Кбайта

Объяснение:

Количество цветов в изображении вычисляется по формуле: , где N - количество цветов (кол-во цветов), а i - объем памяти, занимаемый ОДНИМ пикселем (бит).

В нашем случае цвета всего 2 (N=2), из чего следует: , то есть i=1 биту.

Количество занимаемой информации вычисляется по формуле: , где I - общий объем занимаемой информации (бит), k - кол-во пикселей для кодирования (пикс.), i - объем памяти для кодирования ОДНОГО пикселя (бит).

В нашем случае пикселей в изображении . Подставим в формулу данные и получим: бит информации.

1 байт = 8 = бит

1 Кбайт = байт = бит.

Кбайта.