Описана процедура, реализующая ветвящийся (или разветвляющийся) алгоритм.
Виктор-Богданов
25.04.2023
Эта прога может работать не только с 4-ех значными числами она на pascal. var a,last_num,first_num: integer; begin write('введите число'); read(a); last_num: =a mod 10; first_num: =a; while first_num> 10 do begin first_num: = first_num div 10; end; writeln('последняя цифра ', last_num, ', первая цифра ', first_num); if first_num > last_num then writeln('первая цифра больше') else if first_num = last_num then writeln('они равны') else if last_num > first_num then writeln('последняя цифра больше'); end.
elizabetmaslova3
25.04.2023
Дано: разрешающая способность сканера 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 мегабайт ответ: информационный объём отсканированного изображения = 25 110 000 байт или 23,95 мегабайт