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

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

Новости

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

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