<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('Среднее элементов с четным значением: ',
a.Where(x->x.IsEven).Average);
Writeln('Среднее элементов с четным номером: ',
a.Where((x,i)->i.IsOdd).Average)
end.
<u>Пример</u>
9 1 4 8 2 1 10 7 8 5
Среднее элементов с четным значением: 6.4
Среднее элементов с четным номером: 4.4
Import math
a = float(input())
b = float(input())
c = math.sqrt(a**2 + b**2)
s = (a * b) / 2
print("Площадь треугольника: %.2f" % s)
print("Гипотенуза треугольника: %.2f" % c)
Идея компьютера была предложена английским математиком Чарльзом Бэбиджем (Charles Babage) в середине девятнадцатого века. Его механическая «аналитическая машина» так и не смогла по-настоящему заработать, потому что технологии того времени не удовлетворяли требованиям, необходимым для изготовления нужных деталей точной механики. Конечно, никакой речи об операционной системе для этого «компьютера» не шло.
Настоящее рождение цифровых вычислительных машин произошло вскоре после окончания Второй мировой войны. В середине 40-х были созданы первые ламповые вычислительные устройства. В то время одна и та же группа людей участвовала и в проектировании, и в эксплуатации, ив программировании вычислительной машины. Это была скорее научно-исследовательская работа в области вычислительной техники, а не использование компьютеров в качестве инструмента решения каких-либо практических задач из других прикладных областей.
Program azazaza;
var a,n,i:integer;
begin
for i:=1 to 10 do begin
read(a);
if a mod 2 = 0 then
n:=n+1;
end;
writeln('чётных=',n);
end.
Это только 1-е задание
1 кбайт = 1024 байт.
1 байт =8 бит.
1 кбайт = 1024*8=8192 бит.
0,5 кбайт = 8192/2=4096 бит.
Ответ: 4096 бит.