program Project1;
 
function SumDigit(const aNum : Integer) : Integer;
begin
  SumDigit := 0;
  if aNum <> 0 then
    SumDigit := aNum mod 10 + SumDigit(aNum div 10);
  ;
end;
 
var
  Num, Sum : Integer;
  S : String;
begin
  repeat
    Writeln('Задайте целое число:');
    Readln(Num);
    (*Берём число без знака.*)
    Num := Abs(Num);
 
    Sum := SumDigit(Num);
    Writeln('Сумма цифр в десятичной записи числа равна:');
    Writeln(Sum);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> ''
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.12.2011, 02:24

Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой...

Перевод из Pascal в C++
Перевод из Pascal в C++ Здравствуйте, помогите пожалуйста с переводом, сам нисколько не знаю...

Перевод с C++ на Pascal
Есть задача Группа программистов собралась в понедельник и на все свои деньги купила «Sprite» в...

	18.12.2011, 02:24

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.12.2011, 02:24

Помогаю со студенческими работами здесь

Перевод из pascal в c++
Переведите из pascal в c++ (Спасибо за ранее)) var i, n, firstnpos, firstpos, firstnneg,...

Перевод с Pascal на c#
здравствуйте , возникли сложности в переводе из языка Паскаль на c# кто может помогите перевести ...

Перевод с Pascal на Си
Доброго времени суток, помогите пожалуйста перевести с Pascal на Си или может есть что нибудь...

Перевод из Pascal в C++
Здравствуйте, помогите пожалуйста с переводом. program Korovi; var n, k, i, j: integer; l, r,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх