Конвентирование паскаля в алгоритмичный язык Program kwur;

Uses CRT;

Var a,b,c,d,x1,x1: real;

Begin

Clrscr;

Write('введите коэффициенты уравнения a,b,c'); readln(a,b,c);

D:=b*b-4*a*c;

If d>=0 then

Begin

X1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a);

Writeln('x1=',x1' x2=',x2)

END;

Else writeln('действительных корней нет')

End.
Перевести текст выше в алгоритмичный язык

3. 640х480 = 307 200 (бит).
100 Кбайт = 100х1024х8 = 819 200 (бит)
Следовательно, на 1 пиксель (бит) придется 819200/307200 = 2.67 бита. Но дробным число битов не бывает, поэтому получается, что можно отвести только 2 бита на пиксель. При этом количество возможных цветов будет 2²-1=3. Плюс, конечно же, черный цвет, когда пикселя не видно. Т.е. палитра будет 4х цветной.
4. Как видно из предыдущей задачи, четырехцветная палитра кодируется двумя битами. Если количество цветов в палитре увеличить до 256, то потребуется уже восемь бит, т.е. вчетверо больше. Следовательно, само изображение будет иметь вчетверо меньший размер, например, 150х100.

1)            находим количество пикселей, используя для вычисления степени числа 2: n  = 512 · 256 = 29  · 28  = 217 2)            объём файла в  кбайтах  64 = 26 3)            объём файла в битах  26    · 213  = 219 4)            глубина кодирования (количество битов, выделяемых на 1 пиксель): 219  :   217  = 22  = 4 бита на пиксель 5)            максимальное возможное количество  цветов 24  = 16 6)            ответ:   16.