Var
a,b:integer;
Begin
writeln('Не вводите 44');
while b<>44 do
Begin
Writeln('Число, пожалуйста');
a:=a+b;
readln(b);
End;
Write(a,' - это сумма тех чисел, которые вы вводили');
End.
// сумма 2 членов ряда = 1- 1/2+1/3=0.83333333 примерно
Program SumPosl;
Uses Crt;
var i,n:integer;
c:real;
begin
c:=1;
clrscr;
write('Введите n:' );
readln(n);
for i:=2 to (n+1) do
if odd(i)=false then c:=c-(1/i)
else c:=c+(1/i);
writeln('Сумма n членов ряда:',c:5:5);
readkey;
end.
uses Math; // Ссылка на модуль с объявлением функции power
var
x, k, a, y: Real; // объявляются переменные типа "с плавающей запятой"
begin
Write ('Введите x, k, a: ');
ReadLn (x, k, a); // ввод с клавиатуры значений переменных
y := Power (x + 1, 2) / 3 / k + Power (a, 4) + 2; // power - функция возведения в степень
WriteLn ('y = ', y);
end.
1024×512=524288 бит
Переведем размер файла в биты
1.5×1024×1024×8 =12582912 бит
Разделим размер файла картинки на размер картинки в пикселах
12582912/524288 = 24 бит
Глубина цвета 24 бита
А количество цветов 2 в 24 степени т.е 16777216 цветов
1. 64х128=8,192 пикс. Выделенный объем делим на кол-во пикселей и получаем число бит на пиксел. Т.е., 3,072/8,172=0.375 байта. Т.е., примерно 3 бита. А 3 бита = 8 комбинаций (от 000 до 111). 8 цветов в палитре.