3. пуск
5. раскрывающийся
6. мышка
7. окно
9. может быть - графическое
10. программы
1. справка
2. стрелка
4. список
6.
8. отмена
256=2^8, поэтому для представления цвета пикселя достаточно 8 бит. Но кроме этого, монитору надо указывать координаты пикселя, так что на самом деле пиксель будет занимать больше, чем 8 бит)))
Var s:real;
begin
write('Сумма покупки = ');
readln(s);
if s>100 then writeln('Скидка = ',s*0.1)
else writeln('Скидка = ',s*0.05);
end.
Пример:
Сумма покупки = 200
Скидка = 20
Если K - разрешение, N - глубина, а I - объём, то K умножай на N и получишь биты. Дели на 8 если нужен байт
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)