Баннеры

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

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

Новости

Начата публикация глав книги Осипова А.В. «PascalABC.NET: Современное программирование». Обсуждение книги - на форуме.

04.01.19. На сайте появился новый раздел - Книги по PascalABС.NET.

30.08.18. Вышла версия 3.4.2. Реализованы расширенные свойства. Реализован новый модуль векторной графики WPFObjects.

17.06.18. Опубликован документ Массивы: алгоритмы против методов и операций

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

// Сумма цифр целого числа
// Уровень сложности: 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.