pascal
Главная | Каталог статей | Регистрация | Вход
Пятница
18.07.2025
23:38
Приветствую Вас Гость | RSS
Главная » Статьи » Pascal » Процедуры и функции

Сумма и произведение цифр числа

 function sum (a : integer) : integer;
  var
    s : integer;
  begin
   While a > 0 do
    begin
     s := s + a mod 10;
     a := a div 10;
    end;
   Result := s;
  end;

 

  function p (a : integer) : integer;
  var
    p : integer;
  begin
   p := 1;
   While a > 0 do
    begin
     p := p * a mod 10;
     a := a div 10;
    end;
   Result := p;
  end;

Категория: Процедуры и функции | Добавил: cccc1808 (03.07.2015)
Просмотров: 202 | Рейтинг: 0.0/0
Всего комментариев: 0
avatar
Вход на сайт
Поиск
Copyright MyCorp © 2025
Бесплатный хостинг uCoz