Var i,j:integer;
mass1:array[1..10] of integer;
mass2:array[1..10] of integer;
begin
for i:=1 to 10 do begin
read(mass1[i]);
if mass1[i]=0 then begin
j:=j+1;
mass2[j]:=i;
end;
end;
for j:=1 to j do
write(mass2[j]:3);
end.<span>
</span>
1) 40×40=1,600 (симв.) - на одной стр
2) 1,600×64=102,400 (симв.) - во всей статье
8 бит = 1 байт
3) 102,400×1=102,400 (байт) - размер статьи
Ответ: 102,400 байт
Program z1;
var a,b,c,s,p:real;
begin
writeln('введите три стороны треугольника');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-c)*(p-b));
writeln(s);
end.