var a:array[1..10]of integer;
i,n1,n2:integer;
s:real;
begin
for i:=1 to 10 do begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/10;
for i:=1 to 10 do begin
if a[i]>s then inc(n1);
if a[i]<s then inc(n2);
end;
writeln('bolshe - ',n1,' menshe - ',n2);
end.
<em>Program Zn;</em>
<em>var n,k,sum:integer;</em>
<em>Begin</em>
<em>Writeln('Введите натуральное число');</em>
<em>Readln(n);</em>
<em>While n<>0 do begin</em>
<em>k:= n mod 10;</em>
<em>if k mod 2 = 0 then sum:=sum+k;</em>
<em>n:= n div 10;</em>
<em>end;</em>
<em>writeln('Сумма четных чисел = ', sum);</em>
<em>end.</em>
<em>(Проверено и откомпелировано на Pascal.NET)</em>
ADBC216<span> = </span>711<span>618
</span>AD3416<span> = 44</span><span>340
</span>2F6516<span> = 12</span><span>133</span>
720*1024*1024=754974720 байт - весь фильм 1 минуты
1024*768*60*16*Х=754974720
Х=1
всего один цвет - монохромное изображение
Если задание - расположить в порядке возрастания запросы, то ответ таков:
3412