1. 2 байта (каждый символ) * 64 (символа в строке) * 36 (строк на странице) * 14 (страниц в тексте) = 64512 байт = 63 килобайта, ответ 4
2. 8 бит = 1 байт,
1 байт (каждый символ) * 48 (символов в строке) * 36 (строк на странице) * 48 (страниц в тексте) = 82944 байт = 81 килобайт, ответ 3
Program Maximum; var A: array [1..20] of integer; i,sum: integer; sr:real; Begin A[1]:=56; A[2]:=78; A[3]:=48; A[4]:=90; A[5]:=45; A[6]:=54; A[7]:=63; A[8]:=52; A[9]:=43; A[10]:=54; A[11]:=64; A[12]:=59; A[13]:=54; A[14]:=53; A[15]:=52; A[16]:=58; A[17]:=71; A[18]:=58; A[19]:=59; A[20]:=70; for i:=1 to 20 do begin sum+=A[i]; end; sr:=sum/20; write(sr); end.
Var a:integer;
s:real;
begin
readln(a);
case a of
1: begin s:=pi*a*a; writeln(s); end;
2: begin s:=a*a; writeln(s); end;
3: begin s:=a*a*sqrt(3)/4; writeln(s); end;
else writeln('нужно ввести число 1, 2, 3');
end;
<span>end.</span>