Const
n=5;
var
m:array[1..n] of byte;
function Itog():real;
var
i,max,min,s:byte;
begin
s:=m[1]; max:=s; min:=s;
for i:=2 to n do begin
s:=s+m[i];
if max<m[i] then max:=m[i]
else
if min>m[i] then min:=m[i]
end;
s:=s-max-min;
Itog:=s/(n-2)
end;
var
i:byte;
begin
Writeln('Введите экспертные оценки');
for i:=1 to n do Read(m[i]);
Writeln('Итоговый балл равен ',Itog:4:2)
end.
<em><u>Тестовое решение:</u></em>
Введите экспертные оценки
4 4 5 3 5
Итоговый балл равен 4.33
А) ложь
б) истина
в) ложь
г) истина
д) истина
е) ложь
ж) ложь
и) ложь
к) истина
Задание 4
ответ 4 т.к известно что он поднялся два раза вверх и 3 раза вниз
Var n, i, k:integer;
begin;
readln(n);
for i:=100 to 999 do
if (i mod 10) + (i div 100) + (i div 10 mod 10) = n then begin;
writeln(i);
k:=k+1;
end;
writeln(k);
end.
1) 640 × 350 =224000 пикселей в данном изображении
2) N = 2^i
16 = 2^i
i = 4 бит - глубина кодирования одного пикселя изображения
3) 4 бита × 224000 = 896000 бит = 112000 байт = 109,375 Кбайт занимает изображение в видеопамяти ПК