<em>// PascalABC.NET 3.2, сборка 1478 от 10.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
<u>Пример</u>
n= 15373
S=118172251
<em>№2</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Количество отрицательных элементов построчно:');
a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
88 43 64 50 -27 -9 48 55
1 40 -39 -99 -45 -54 17 -77
-33 99 -38 -19 -93 18 -19 -24
17 4 -36 90 98 69 68 35
-35 18 85 54 -74 -69 14 -62
--------------------------------
Количество отрицательных элементов построчно:
2 5 6 1 4
===== PascalABC.NET =====
function ЧислоВторыхМаксимумов(a: array of integer) :=
a.GroupBy(p -> p) // сгруппировали одинаковые
.Select(p -> (p.Count, p.Key)) // создали кортежи (кол, значение)
.OrderByDescending(p -> p[1]) // отсортировали по убыванию значений
.Skip(1) // пропустили первый элемент
.Take(1) // взяли только второй элемент
.Select(p -> p[0]); // выделили из кортежа количество
begin
var n:=ReadInteger('n ='); // длина массива
var a:=ArrRandom(n, 1, 10); // инициализируем массив
a.Println; // выводим его
ЧислоВторыхМаксимумов(a).Println // вызываем функцию, выводим результат
end.
Program chet;
var i,k,n:integer;
begin
readln(n);
for i:=1 to n do
begin
if n mod i = 0 then k:=k+1;
end;
if k=2 then writeln('число,',n,',натуральное')
else writeln('число,',n,',не натуральное');
<span>end.</span>
Файл - удалить, переместить, переименовать
Папка - удалить, переместить, переименовать
Не знаю, что тут еще можно добавить
Ответ: 2
Рассмотрим каждую таблицу отдельно:
1) В 1 таблице добраться из пункта А в пункт C можно 2 путями:
АВС = 2 + 6 = 8
АС = 8
2) Во 2 таблице добраться из пункта А в пункт C можно 2 путями:
АВС = 2 + 4 = 6
АС = 9
3) В 3 таблице добраться из пункта А в пункт C можно 2 путями:
АВDС = 2 + 2 + 5 = 9
АС = 10
4) В 4 таблице добраться из пункта А в пункт C можно 2 путями:
АВС = 2 + 5 = 7
АDС = 3 + 9 = 12
Машинист сможет доехать из пункта А в пункт C за 6 часов только путем АВС = 2 + 4 = 6 из 2 таблицы.
