Var
a,b,s: integer;
begin
readln(a,b)
s:=(a*b)/2
writeln(s)
end.
1. Дано: Растровая сетка размером 600х350; К=8
Решение: По формуле К=2^b определим глубину цвета 8=2^3, глубина цвета b=3 бита. Количество пикселей равно 600х350=210000. Объем видеопамяти равен 210000*3=630000 бит.
Переведем полученный результат в Кбайты.
630000/8=78750 байт. 78750/1024=76,904 Кбайт.
Ответ: 76,904 Кбайт.
2. Дано: b=3 бита
Решение: Опять же по формуле K=2^b, K=2^3=8 цветов.
Ответ: 8 цветов.
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.
Может имелись в виду <span>счетно-перфорационные машины?
Если да, то такая машина была придумана в конце 19 века </span><span>Германом Холлеритом(Америка).
Эту машину можно сравнить с машиной Бэббиджа. Если в машине Бэббиджа перфокарты использовались для представления программы, то в этой - для хранения числовой информации. Эти машины делали сортировку, сортировку, вывод на печать числовых таблиц и перфорацию. Благодаря этой машине решались простые задачи статистической </span><span>обработки, бухгалтерского учета и так далее.</span>