Тесты производительности

Просмотров: 5975

Поучаствуй в замерах производительности программ для PascalABC.NET, Free Pascal и Visual C++.

Скачай программы и заполни эту таблицу.

Новости

29.08.16. Вышла версия 3.2. Реализован оператор yield.

12.02.16. Вышла версия 3.1. Добавлены кортежи в стиле (a,b) и кортежное присваивание (a,b) := (b,a)

31.12.15. Версия 3.0.0.1128. Реализованы обобщенные методы расширения для операций

22.12.15. Версия 3.0.0.1116. Реализован новый синтаксис extension-методов

Случайная программа

// Сумма цифр целого числа
// Уровень сложности: 0

function SumDigits(x: integer): integer;
begin
  Result := 0;
  while x<>0 do
  begin
    Result += x mod 10;
    x := x div 10;
  end;
end;
 
begin
  var x := ReadlnInteger;
  write('Сумма цифр = ',SumDigits(x));
end.