Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Числа   Найти похожие ветки 

 
Chcnger   (2004-03-18 20:58) [0]

Как определить сумму всех цифер в числе(цуифер от 1 до 50)
Смотрел тут, но так ничего и не понял
algolist.manual.ru/olimp/rec_sol.php.htm#a3


 
Dimm ©   (2004-03-18 21:00) [1]

вот так %)


var i,j :integer;
...
j := 0;
for i:=1 to 50 j := j + i;


 
Chcnger   (2004-03-18 21:09) [2]

А более быстрых алгоритмов нету?


 
Dimm ©   (2004-03-18 21:17) [3]

j := 1275;


 
Chcnger   (2004-03-18 21:18) [4]

ИМХО работает это неправильно!!


 
Dimm ©   (2004-03-18 21:21) [5]

а забыл do поставить


var i,j :integer;
...
j := 0;
for i:=1 to 50 do j := j + i;



 
Fay ©   (2004-03-18 21:21) [6]

>> ИМХО работает это неправильно!!
j := 1275;
Это? Не может быть. У меня, во всяком случае, без ошибок.


 
Ангел. ©   (2004-03-18 21:29) [7]

var
s: string;
i: longinteger;
summ,j: integer;
begin
summ:=0;
s:=inttostr(i);// i - это твое число
for j:=1 to length(s) do begin
summ:=summ+strtoint(s[j]);// а здесь считаем сумму циферок в нем
end;


 
Anatoly Podgoretsky ©   (2004-03-18 21:30) [8]

Это неправильно, это сумма чисел, а не цифр


 
Gero ©   (2004-03-18 21:32) [9]

если
> сумму всех цифер в числе
то циклом.

А если суму чисел от 1 до N, то для этого есть формулы суммы арифметической прогрессии(Надеюсь, Вы их знаете :)


 
Chcnger   (2004-03-18 21:33) [10]

Я прото же, нужно найти сумму цифер. Дано число, Н-кол. цифер в нем 1<Н<50. Нужно найти их сумму


 
Mox Fulder ©   (2004-03-18 21:37) [11]

Переводи в строку, выдирай в цикле по 1 символу, переводи символ в цифру и суммируй, короче >  Ангел. ©   (18.03.04 21:29)


 
Gero ©   (2004-03-18 21:37) [12]

Тогда [7].


 
Verg ©   (2004-03-18 21:48) [13]

var DigSumm : integer;
 
DigSumm := 0;
while X<>0 do
begin
 inc(DigSumm, X mod 10);
 X := X div 10;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.052 c
4-1075131178
Артём
2004-01-26 18:32
2004.04.04
Инересная проблема Помогите решить


14-1078327285
pathfinder
2004-03-03 18:21
2004.04.04
Как удалить файл без возможности его восстановления?


1-1079077216
Status
2004-03-12 10:40
2004.04.04
Как получить только время из переменной типа TDatetime?


9-1063191841
Agent[007]
2003-09-10 15:04
2004.04.04
Создание своих типов...


1-1079594675
Billy
2004-03-18 10:24
2004.04.04
Как узнать существует ли данная форма???