Написать программу для вычисления стоим.покупки со скидкой. скидка 3%, если сумма до 500руб, 5%, если сумма больше 1000руб.

Program xxx; uses crt; var price, calc: real begin writeln('ведите сумму'); readln(price); if price< 500 then begin calc: =price-price*0.03; writeln('с учетом скидки сумма будет',calc*) end; if price> 1000 then begin calc: =price-price*0.05; writeln('с учетом скидки сумма будет',calc*) end; end.

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

Считаем на сколько изменятся координаты после выполнения всех команд. 1. нет команды "конец". если команда "повторить" относится ко всем трем , то получаем: x+3(-2+3+4)=x+15, y+3(-3+2+0)=y-3. как видим, такой команды (15,-3) в ответах нет. может быть, в условии опечатка и последняя команда должна быть не (4,0), а (-4,0). тогда получится  x+3(-2+3-4)=x-9, y+3(-3+2+0)=y-3. команда (-9,-3). это ответ под номером 1. 2.  x+3(1-2)+4=x+1, y+3(3-5)+8=y+2. чтобы вернуться, нужна команда (-1,-2). ответ под номером 1. 3.  x+2(2+5+1)=x+16, y+2(1-4+4)=y+2.  чтобы вернуться, нужна команда (-16,-2). такого ответа опять нет. надо проверить условие.