===== PascalABC.NET =====
procedure MyFill(a: array[,] of integer);
begin
for var i := 0 to a.RowCount - 1 do
for var j := i to a.ColCount - 1 do
a[i, j] := j - i + 1
end;
begin
var a := MatrFill(6, 6, 0);
MyFill(a);
a.Println(2)
end.
PascalABC.NET
uses
System.Collections.Generic;
var
arr: List<<em>single</em>> := new List<<em>single</em>>();
i: integer;
begin
writeln('i':2, 'arr[i]':7, #13, new string('-', 9));
for i := 1 to 10 do
begin
arr.Add(Random(-5, 5));
writeln(i:2, arr[i - 1]:7);
end;
writeln(new string('-', 9));
arr.RemoveAt(3);
for i := 1 to 9 do
writeln(i:2, arr[i - 1]:7);
end.
Сначала появилась почта - в разных странах она возникала в разное время, но возникла вскоре после изобретения письменности. Затем был изобретен телеграф, сначала - оптический телеграф Шаппа, затем электрический телеграф Морзе, передающий сигналы специальной кодовой азбукой. Затем Александр Белл изобрел телефон. Потом, уже в XX веке, появилось радиовещание, потом телевидение и наконец компьютерные сети.
Если в интервале от 21 до 30 то 9%(30-21) так как он может загадать 100 чисел то каждое цифра =1 %
От 31 до 55 то 55-31=24%
Больше 25 то 100-25=75%
Равное 25=1%