На третьей строчке, видимо, ошибка, и вместо Вывод(x) на самом деле Ввод(x).
var x: integer; y: real; begin Readln(x); y := (10 + 2 * x) / (11 - x); Writeln(y); end.При x = 3 переменная y = 2Задание 3var number, resultNumber, i: integer; begin resultNumber := 1; for i := 1 to 3 do begin Readln(number); resultNumber := resultNumber * number; end; Writeln(resultNumber); end.Задание 4var a: integer; b, c: real; begin a := 3; b := -1.5; c := 6 - 2 * b; c := c - a; Writeln(c); end.Результатом вывода будет число 6Задание 5var x, y, z: integer; begin x := 8; y := 2; if (x > y) then z := x - y else z := y + x; Writeln(z); end.Поделитесь своими знаниями, ответьте на вопрос:
1. у фотографа имеется фотоаппарат, в памяти которого заложено всего 8 цветов. фотограф в его настройках установил, чтобы изображения были размером 512*256 пикс сколько памяти при фотографировании займут 2 картинки на флешке? ответ дать в кб! 2. пользователь к электронному письму хочет прикрепить изображения. изображения имеют параметры: 256*32 пикс с палитрой 1024 цветов. сколько таких изображений можно прикрепить, если ограничение на прикрепления стоит 100 кбайт 3. какая минимальная глубина цвета требуется для кодирования 512 цветов? 4. сканер имеет разрешение 64*16 dpi. отсканированное изображение размером 4*16 дюйма занимают 128 мб памяти. чему равна глубина цвета точки отсканированного изображения? ответ дать в кбайтах
512*256*3 бит = 512*256*3 / (8*1024) Кбайт = 48 Кбайт.
Две фотографии займут 2*48 = 96 Кбайт
2. Для кодирования одного из 1024 цветов требуется log(2)1024 = 10 бит (2^10=1024). Объем одного изображения = 256*32*10 бит = 256*32*10 / (8*1024) Кбайт = 10 Кбайт. Количество изображений, которые можно прикрепить = 100/10 = 10
3. Глубина цвета = log(2)512 = 9 бит (2^9=512)
4. Количество точек отсканированного изображения = 4*16*64*16.
128 Мбайт = 128*1024 Кбайт = 128*1024*1024 байт = 128*1024*1024*8 бит.
Глубина цвета = 128*1024*1024*8 / (4*16*64*16) = 16384 бит (как-то очень много).