В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *
1)
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=2 to n do if i mod 2=0 then sum:=sum+i;
write(sum);
end.
2)
Program n2;
var i,sum: integer;
begin
sum:=0;
for i:=10 to 99 do sum:=sum+i;
write(sum);
end.
Var x1,y1,z1,x2,y2,z2,x3,y3,z3,abx,aby,abz,acx,acy,acz,s,mx,my,mz,c:real;
begin;
readln(x1);
readln(y1);
readln(z1);
readln(x2);
readln(y2);
readln(z2);
readln(x3);
readln(y3);
readln(z3);
abx:=x2-x1;
acx:=x3-x1;
aby:=y2-y1;
acy:=y3-y1;
abz:=z2-z1;
acz:=z3-z1;
mx:=aby*acz-abz*acy;
my:=abz*acx-abx*acz;
mz:=abx*acy-aby*acx;
c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));
s:=0.5*c;
writeln(s);
end.<span>
</span>
<span>"вознесся выше он главою непокорной Александрийского столба" -58 симв.
58 * 16 = </span>928 бит / 8 = 116 байт.
4. 16*30*32*16 = 245760 бит / 8 = 30720 байт.
5. 16*50*64*16 = 819200 бит / 8 = 102400 байт.
6. 14 * 36 * 64 * 2 байт = 64512 байт