2 ВАРИАНТ 1. Определите количество цветов в палитре при глубине цвета 8, 24, 32 бита. 2. Запишите глубину цвета, если количество цветов в палитре 8, 512. 3. Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 1024x1024 пикселей при условии, что в изображении могут использоваться 16 различных цветов? В ответе запишите только целое число, единицу измерения писать не нужно 4. Автоматическая фотокамера производит растровые изображения размером 480 на 640 пикселей. При этом объём файла с изображением не может превышать 40 Кбайт, упаковка данных не производится. Какое максимальное количество цветов можно использовать в палитре?
Это задача на вычисление суммы после уплаты налога. Если s0 - исходная сумма, а р - процент налога, то ищется s=s0-s0*p/100. Окончательная формула: s=s0(1-p/100)
const p=13; { налог в процентах } var s0,s:real; begin Write('Введите сумму '); Read(s0); s:=s0*(1-p/100); { а теперь округлим сумму до копеек, т.е. до 0.01 } s:=Int(100*(s+0.005))/100; Writeln('Сумма после вычета налога ',p,'% составит ',s:0:2) end.
Тестовое решение: Введите сумму 2000 Сумма после вычета налога 13% составит 1740.00
Замечание. При целочисленной зарплате и целочисленном проценте налога оператор s:=Int(100*(s+0.005))/100; не нужен, поскольку в дробной части всегда будет не больше двух знаков. Но, поскольку о сумме зарплаты ничего не говорится, а дано только конкретное значение, которое понято как тестовый пример, было предложено решение с округлением.
Если s0 - исходная сумма, а р - процент налога, то ищется s=s0-s0*p/100.
Окончательная формула: s=s0(1-p/100)
const
p=13; { налог в процентах }
var
s0,s:real;
begin
Write('Введите сумму '); Read(s0);
s:=s0*(1-p/100);
{ а теперь округлим сумму до копеек, т.е. до 0.01 }
s:=Int(100*(s+0.005))/100;
Writeln('Сумма после вычета налога ',p,'% составит ',s:0:2)
end.
Тестовое решение:
Введите сумму 2000
Сумма после вычета налога 13% составит 1740.00
Замечание. При целочисленной зарплате и целочисленном проценте налога оператор s:=Int(100*(s+0.005))/100; не нужен, поскольку в дробной части всегда будет не больше двух знаков. Но, поскольку о сумме зарплаты ничего не говорится, а дано только конкретное значение, которое понято как тестовый пример, было предложено решение с округлением.
1-И, 2-Н, 3-Ф, 4-О, 5-Р, 6-М, 7-А, 8-Т, 9-И, 10-К, 11-А.
Перепишем алгоритм, раскрывая циклы и подставляя значения.
m := 10
b := Извлечь('ИНФОРМАТИКА', 10) 'K'⇒b
k:=4
с := Извлечь('ИНФОРМАТИКА', 4) 'O'⇒c
b := Склеить(b, с) 'KO'⇒b
k:=5
с := Извлечь('ИНФОРМАТИКА', 5) 'Р'⇒c
b := Склеить(b, с) 'KOР'⇒b
k:=1
с := Извлечь('ИНФОРМАТИКА', 1) 'И'⇒c
b := Склеить(b, с) 'KОРИ'⇒b
k:=2
с := Извлечь('ИНФОРМАТИКА', 2) 'Н'⇒c
b := Склеить(b, с) 'KОРИН'⇒b
k:=3
с := Извлечь('ИНФОРМАТИКА', 3) 'Ф'⇒c
b := Склеить(b, с) 'KОРИНФ'⇒b
Переменная b примет значение строки 'KОРИНФ'