<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
1. for i := 2 to n div 2 do if (n mod i = 0) and ((n mod c = 0) or (n mod d = 0)) then s := s + i;
2. for i := 2 to n div 2 do if (n mod i = 0) then begin s := s + i; inc(c); end;
writeln( 'Среднее: ', s / c );
INSERT INTO T2 (Id, Data2, Ciffri2) SELECT Id, SUM (Cifri), Data FROM T1 GROUP BY Data
;