Задачи данного блока можно решить с циклов, однако, мы просим решить их с рекурсивных функций. Известно, что любой цикл можно заменить рекурсией.

Определить можно ли с использованием только операций «прибавить 3» и «прибавить 5» получить из числа 11 число N (N - натуральное, не превышает 106106). Разумеется, само число 11 получить можно, просто не применяя никаких операций.

Входные данные

Вводится число N.

Выходные данные

Выведите слово YES, если число N можно получить из числа 11, или NO - в противном случае.

Дано:
Разрешающая сканера 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 Мегабайт

Program n_7;var a,b,c,d,max,min:integer;function f(x,y,c,d:integer):integer;beginif (x>y) and (x>c) and (x>d) then begin max:=x; endelse if (y>c) and (x>d) then begin max:=y; endelse if (c>d) then begin max:=c; endelse begin max:=d; end;if (x<y) and (x<c) and (x<d) then begin min:=x; endelse if (y<c) and (x<d) then begin min:=y; endelse if (c<d) then begin min:=c; endelse begin min:=d; end;writeln('max=',max,'; min=',min,' pa3HocTb=',max/min,' B pa3ax');end;begin readln (a,b,c,d);f(a,b,c,d);readln;end.