Uses crt;
var a,b,c,Sk,Sp:real;
Begin
Clrscr;
writeln('vedut a');
readln(a);
writeln('vedut b');
readln(b);
writeln('vedut c');
readln(c);
sk:=a*a;
sp:=b*c;
if sk>sp then
writeln('plocha kvadrata bolhe');
if sk<sp then
writeln('plocha pramoygolnuka bolhe');
readln;
End.
Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>
1) 16×32×40=20480 символов всего
20480×16 бит = 327680 бит ÷8 = 40960 Байт ÷1024 = 40 Кб
Ответ: объем статьи = 40 Кбайт
2) 48 Кб ×1024 = 49152 Байт ×8 = 393216 бит - объем статьи в битах
по аналогии с №1 считаем в <span>кодировке Unicode (16 бит на один символ):
</span>393216 = 64×38×х×16 = 38912х
х = 393216÷38912 = 10,1052631578 ≈ 10,1 страниц