Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B<M Then
M:=B;
if C<M Then
M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.
Если считать, что используется однобайтная кодировка типа ASCII, то один символ кодируется одним байтом.
Тогда для строки потребуется 64×1 = 64 б, для страницы 48×64 = 3 072 б = 3 072 / 1 024 = 3 Кб, а весь учебник займет 512 × 3 = 1 536 Кб
Школьная библиотека разместится в 50 000 × 1536 = 76 800 000 Кб =
76 800 000 / 1024 = 75 000 Мб = 75 000 / 1024 ≈ 73.24 Гб
Количество дисков составит 75 000 / 700 ≈ 107.1, т.е. 108.
Var a:array[1..8, 1..8] of integer;
max, i, j:integer;
begin
randomize;
max:=0;
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(200);
for i:=1 to 8 do
for j:=1 to 8 do
if i+j=9 then
begin
if a[i, j]>max then max:=a[i, j];
end;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i, j]:5);
writeln;
end;
writeln('Максимальный элемент=', max);
<span> end.</span>