Дана последовательность натуральных чисел до 0,вывести все двузначные числа, у которых старшая цифрв больше младшей. посчитать их сумму и ср арифмитическое. pascal abc

Var   i,s,n: integer;   begin   n: =0; s: =0;   for i: =0 to 99 do       if i> 9 then           if i div 10 > i mod 10 then begin               n: =n+1; s: =s+i;               end;   writeln('сумма ',s,', ср. арифметическое ',s/n) end. результат сумма 2970, ср. арифметическое 66

решал раньше , подставь свои данные только и всё

дано:

разрешающая способность сканера 600 х 600 dpi.

размер 10см x 15см.

глубина цвета - 3 байта.

найти:

каков информационный объём этого файла?

решение:

вначале переводим глубину
цвета из байт в биты

3 байта * 8бит в байте = 24 бит

вычисляем разрешение сканера в 1 дюйме квадрат

600*600 = 360 000 пикселей в 1 дюйм^2

переводим размер картинки из квадратных сантиметров в квадратные дюймы.

10см = 3.937дюйма

15см =
5,906дюйма

10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

вычисляем количество пикселей в изображении

23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

информационный объём вычисляем по формуле

количество пикселей * глубину цвета =

8
370 000 пикселей * 24 бит = 200 880 000 бит.

переводим в байты делением на 8.

25 110 000 байт

или же делим на 1024*1024 чтобы получить количество мегабайт

23,95 мегабайт