Эта команда создаст все каталоги:
mkdir C:\школа\проекты\информатика\2четверть\контрольная
Создавать презентацию нужно в каталоге C:\школа\проекты, потом нужно переместить ее в C:\школа\проекты\информатика\2четверть\контрольная.
Const n=4;
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i do write('-');
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
for j:=1 to n-i do write('-');
writeln;
end;
end.
Результат:
<span>---1---
--121--
-12321-
1234321</span>
1)const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;
n,i:integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do write(a[i],' ');writeln;
<span>end.
А вторую и третью я объединила:
</span>const
n1=1000;
type
mas=array[1..n1] of integer;
var
a:mas;i,min:integer;
begin
randomize;
for i:=1 to 5 do a[i]:=random(101)+0;
for i:=1 to 5 do write(a[i],' ');writeln;
min:=a[1];
for i:=2 to 5 do if a[i]<min then min:=a[i];
writeln(min);
end.
//PascalABC.NET 3.2 сборка 1318
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;
1. Определяем количество точек в изображении
(5×24)×(4×24) = 24²×5×4 = 20×24² = 20×576=11 520
2. Определяем глубину цвета в битах
8192 < 15000 < 16384; 2¹³ < 15000 < 2¹⁴ ⇒ потребуется 14 бит.
3. Определяем объем памяти
11 520 × 14 = 161 280 бит = 161280/8 = 20 160 байт = 20160/1024 ≈ 19.7 Кбайт