Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
ВнизЧисла Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.048 c