Результатом якої функції будуть всі значення з ряду, які повторюються найбільшу кількість разів?
1.mode.muit
2.frequency
3.mode.sngl
4.stdev.p​

Сопоставьте определения в гонке роботов с названием Самый интересный из роботов EV3 Роботы должны удалить соперника с ринга в течение определенного времени, если через определенное время оба робота приблизятся к середине ринга, победителем будет один гонок. Если внутри круга, Робо-сумо соответствует. Внешний диаметр круга отмечен точкой в середине внутреннего диаметра - тип поля, который составляет 100 мм, 1000 мм, красный Схватка между двумя роботами. состоит из нескольких раундов. Робо - C * Y * M * O 2

//Pascal ABC.NET v3.1 сборка 1172

//Продвинутый вариант

Var
 n:integer;
begin
 readln(n);
 writeln('Summary=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Sum);
 writeln('Count=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Count);
end.

//"Школьный" вариант
Var
 i,n,sum,co:integer;
begin
 readln(n);
 for i:=1 to n do
  if (i mod 3=0) and (i mod 10=2) then
   begin
    co:=co+1;
    sum:=sum+i;
   end;
 writeln('Summary=',sum);
 writeln('Count=',co);
end.

Пример ввода:
14
Пример вывода:
Summary=12
Count=1