Берёт враг
он берёт 2 ты 1 =3
он 1 ты 2=3
вроде как-то так
// PascalABC.NET 3.4, сборка 1767 от 27.08.2018
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
procedure ColorPrint(a: array[,] of integer);
begin
var s := a.ElementsByRow;
var (min, max) := (s.Min, s.Max);
var DefColor := FontColor;
font.Name := 'Courier New';
for var i := 0 to a.RowCount - 1 do
begin
for var j := 0 to a.ColCount - 1 do
if a[i, j] = min then
begin
Font.Color := clRed;
Write(a[i, j]:4);
Font.Color := DefColor
end
else
if a[i, j] = max then
begin
Font.Color := clGreen;
Write(a[i, j]:4);
Font.Color := DefColor
end
else Write(a[i, j]:4);
Writeln
end
end;
begin
var a := MatrRandom(5, 5, -10, 10);
ColorPrint(a)
end.
1)754=1EC
2)0,141=
<span>0.03230303030303030303030303030303030303030303030<span>303
</span>3)126,33=</span>
11200.02222012010111202210022220120101112022100222201201
Var
n, m, i, j : longint;
matr: array of array of longint;
begin
read (n, m);
setLength (matr, n);
for i:=0 to m-1 do
setLength (matr[i], m);
for i:=0 to m-1 do matr[0, i]:=1;
for i:=0 to n-1 do matr[i, 0]:=1;
for i:=1 to n-1 do
for j:=1 to m-1 do
matr [i, j]:=matr [i-1, j]+matr [i, j-1];
for i:=0 to n-1 do
begin
for j:=0 to m-1 do write (matr[i, j]);
writeln ();
end;
end.
<span> \0, \a, \b, \t, \n, \v, \f, \r </span>
<span>ESC/P (Epson Standard Code for Printers) — это язык команд, разработанный Epson, для управления принтерами. Он используется преимущественно в матричных и некоторых струйных принтерах. ESC/P является фактическим стандартом для матричных принтеров и используется другими производителями, иногда в несколько расширенном виде.</span>
ESC-символы
Специальные ASCII-символы, вроде возврата каретки или табуляции. Их синтаксис эквивалентен используемому в языке C — с применением символа обратной косой («\»).
