(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
Дано:
K = 800 * 600 = 480000 пикселей
i = 16 бит
I - ?
Решение:
I = K * i = 480000 * 16 = 7680000 бит
7680000.0 бит = 960000.0 байт = 937.5 Кбайт
Определяете процедурную переменную в стиле определения лямбда - выражения, например,
begin
<span>var dr: real->real := x->x*x;
</span><span>var func: real->real := x->sin(x)+cos(x);
var add: (real,real)->real := (x,y)->x+y;
</span><span> writeln(dr(2));
</span><span> writeln(func(1));
writeln(add(2,3));
end.
</span>
4
1.38177329067604
5
Пусть ученик неуспевающий, если сумма его отметок меньше 2+2+3+3=10.
var
count_losers, sum, current_sum, mark, i, j, n: integer;
begin
read(n);
count_losers := 0;
for i := 1 to n do
begin
current_sum := 0;
for j := 1 to 4 do
begin
read(mark);
current_sum := current_sum + mark;
end;
if current_sum < 10 then
inc(count_losers);
sum := sum + current_sum;
end;
writeln('Неуспевающих учеников: ', count_losers);
writeln('Средняя сумма четырёх отметок: ', sum / n);
writeln('Средняя отметка: ', sum / 4 / n);
end.
Пример ввода:
4
2 2 2 5
2 2 5 2
2 5 2 2
3 2 2 2
Пример вывода:
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625
Сколько букв????¿???????????