Решите пожалуйста в delphi задачку: подсчитать сумму цифр целого числа больших 5. Заранее огромное спасибо!!!!

Question

Решите пожалуйста в delphi задачку: подсчитать сумму цифр целого числа больших 5. Заранее огромное спасибо!!!!

Разное

Гость

Ответ(ы) на вопрос:

Accepted Answer

var num: integer; // Для цикла chislo: integer; // Число summa; // Сумма цифр begin summa:=0; for num := 1 to length(inttostr(Chislo)) do summa := summa + strtoint(inttostr(chislo)[num]); end; Моё новичевское решение, возможно не так всё понял :)