//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
найдем размер изображения:
1) всего 16 цветов., значит на 1 пиксель приходится 4 бита памяти
2)размер изображения=800*600*4=1 920 000 бита
теперь найдем <em>Сколько секунд потребуется модему</em><span>, </span><em>передающему сообщения со скоростью 32000</em><span> бит/с это изображение:</span>
<span>1) 1 920 000 бита / <em>32000</em> бит/с = 60 с</span>
<span>Ответ: 60с</span>
111 = 2^2+2^1+2^0=4+2+1=7
1010 = 2^3 + 2^1 = 8 + 2 = 10
11011 = 2^4+2^3+2^1+2^0=16+8+2+1=27
101101 = 2^5+2^3+2^2+2^0=32+8+4+1=45
Возьми и положи все необходимые тебе учебники, тетради и тому подобное в портфель
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.