1.Определите в битах глубину кодирования каждого цвета палитры, состоящей из 24 цветов. В ответе запишите только число, наименование единицы измерения записывать не нужно.2.Первоначально рисунок, выполненный в палитре, состоящей из 16 цветов, имел размерность 128 х 128. Пользователь изменил размерность рисунка и она стала 256 х 128. А потом пользователь сменил палитру, и в ней стало 32 цвета. Во сколько раз изменился размер видеопамяти, необходимый для отображения этого рисунка? В ответе напишите только число, никаких других символов писать в ответе не надо.3.Посмотрите на приведенный рисунок. Это монохромный рисунок: для его выполнения использовали всего два цвета (белый и черный Размер этого рисунка 128 х 128 пикселей. Определите объем видеопамяти в Кбайтах необходимый и достаточный (т.е. минимальный) для хранения этого рисунка. В ответе запишите только число, наименование единицы измерения записывать не нужно. Решите всё Буду очень благодарен .
Ответы
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите наименьшее число x, для которого истинно высказывание:НЕ (X < 6) И (X нечётное)
Автор: Posadskii-Sergeevna
Написать программу вычисления функции y=x^2+√x/15 если x=1, 5
Автор: oksana-popova
Напишите в pascalabc машину (только машину) с graphabc (использовать только простые команды)
Автор: ВасилийМалюга152
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.