Название сайта 1

Пожалуйста, введите адрес электронной почты, указанный в параметрах вашей учётной записи. На него будет отправлен специальный проверочный код. После его получения вы сможете ввести новый пароль для вашей учетной записи.

Новости

30.08.17. Вышла версия 3.3. Новые модули Graph3D и GraphWPF

19.01.17. Добавлена операция безопасного среза: a?[-1:5:2]

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

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

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

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