<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (n, m) := ReadInteger2;
var a := ArrRandom(10, n, m);
a.Println
end.
<h2>-8 13</h2><h2>-7 11 10 -6 -5 -2 -4 13 13 10</h2>
Решение задачи 1 "Найти площадь кольца, внутренний радиус которого равен 20, а внешний – заданному числу r (r>20)". см в файле.
Решение задачи 2, "<span>Вычислить период колебания маятника длины L", для математического маятника, см файл задача 2.</span>
Например: стол 1 достать тетрадь 2 открыть тетрадь 3 взять карандаш 4 нарисовать ножки стола 5 верхушку стола (могут быть ошибки в словах)
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
Если в байтах: 112986270
если в мега байтах: 107.7521038