задача дана не четко поэтому не гарантирую что решение будет полностью верным, делаю так как она должна быть по моему мнению...
var
a, h, d, S : real;
begin
write('введите длину основания a=');
readln(a);
write('введите d=');
readln(d);
h := a-d;
S := a*h/2;
writeln('h=', h);
writeln('S=', S);
end.
//PascalABC.Net 3.2
var m, n: integer;
a: array of array of integer;
procedure zam(a1, b1: integer);
begin
for var i:=0 to n-1 do
begin
a[i][a1]+=a[i][b1];
a[i][b1] :=a[i][a1]-a[i][b1];
a[i][a1]-=a[i][b1];
end;
end;
procedure sortSelekt ();
var max: integer;
begin
for var i:=0 to m-1 do
begin
max:=i;
for var j:=i to m-1 do
if a[n-1][max]<a[n-1][j] then max:=j;
if i<>max then zam (i, max);
end;
end;
procedure printMAS ();
begin
for var i:=0 to n-1 do
begin
for var j:=0 to m-1 do write (a[i][j]:4);
writeln;
end;
end;
begin
n:=readinteger('n =');
m:=readinteger('m =');
setLength (a, n);
for var i:=0 to n-1 do
a[i]:=arrRandom (m, -99, 99);
writeln ('Первоначальная случайная матрица: ');
printMAS();
sortSelekt ();
writeln ('Измененная матрица: ');
printMAS();
end.
Rgb - red green blue
значение каждого параметра от 0 до 255 так что 512 вовсе не подходит
для якро красного подойдет только 0
ответ 0
Дано:
S=256(предположим что S-страницы)
b=16(нашел такое обозначение бит)
st=64(строчки)
si=64(символы)
Найти
I-?
Решение
i=b*k=s*b*st*si=256*16*64*64=16777216 бит=2097154 байт=2048кб=2 мб
ответ: I=2 мб
Var x,y,k:integer;
begin
Writeln('Привет,я-alconafft');
writeln('введите числа х у');
read(x,y);
k:=x mod y;
write(k);
end.
