Код

var   s:string;   a:integer;   t:integer;   i:integer;   sum:integer; begin   sum:=0;   readln(a); {ввод числа}   str(a,s);    {перевод из числа в строку}   for i:=1 to length(s) do    begin      val(s[i],t,err);   {перевод i-того символа строки в число}      sum:=sum+t;    end;   writeln(sum); end.

Спасибо Fedor

Привет,Has!!!Что-то я не пойму , если пользователь вводит цифры,зачем их в строковый тип переводить и обратно?

Код

function summa( n:integer):integer; var f:integer;  begin       f:=0:     while n>0 do    begin    f:=f+ (nmod10);     n:=ndiv10;       end;   summa:=f;   end;

А это решение не подходит?

Тебе тоже,Aleche, спасибо !

Aleche, только я не понимаю, чем твой код от моего отличается

Код

function sum(number:Integer):Integer  var   sum:Integer;  begin   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number/10;   end;   Result:=sum; end;

Все-все спасибо всем !

По сумме... немного интереснее вариантик, не как стандарт...

Код

var  f: text;  s:string;  c:char;  sum:integer; begin  Assign(f, 'Demo.txt');  reset(f);  readln(f, s);  Close(f);  sum:=0;  while s <> '' do   begin    inc(sum, ord(s[1]) - ord('0'));    Delete(s, 1, 1);   end;  writeln(sum);  readln; end.

Добавлено @ 13:48
Заодно здесь можно и проверку на правильность вводимых данных сделать...

sergej.z!!!!!! Имени функции присваивается ее подсчитываемое значение!!И ,на мой взгляд , лучше использовать деление div А да еще имя функции должно отличаться от работающих в ней переменных!

М-дя... ВСЕ уже поняли, что умеешь управлять цветом и размером, но вот такие сообщения могут вызвать конфликтные ситуации, т. к. лично я думаю, что такое сообщение в жизни было бы произнесего очень повышенным тоном! Немного убавь...

Вот именно, что вcе уже поняли ,СУВ PAKSHIN A.S.!!!А,если, действительно, мое сообщение воспринято в недружелюбной форме, то ничего повышенным я не хотела сказать, просто красный цвет нравится!!! PakshinA.S., не принемай все близко к сердцу !!

Цитата(Aleche @ 19.3.2005, 12:49)

sergej.z!!!!!! smile Имени функции присваивается ее подсчитываемое значение!!И ,на мой взгляд , лучше использовать деление div smile А да еще имя функции должно отличаться от работающих в ней переменных!

О! это круто! тогда можно так написать:

Код

function sum(number:Integer):Integer  var   sum:=0;  begin   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number div 10;   end;  end;

sergej.z Вообще-то говоря, паскалевско-дельфистский компилятор бы выдал ошибку несовместимости типов при использовании "/", т. к. результат этой операции - вещественное число, а присвоение шло к целочесленному... а что? в сях не так? Я всегда использовал функции разбиения на целую часть и остаток... Надо будет еще раз почитать...

Цитата(sergej @ 19.3.2005, 15:10)

тогда можно так написать:

Цитата(sergej @ 19.3.2005, 15:10)

var   sum:=0;

sergej.z я даже не проверяя код, могу сказать что так написать нельзя.

Цитата(Pakshin @ 19.3.2005, 15:51)

sergej.z Вообще-то говоря, паскалевско-дельфистский компилятор бы выдал ошибку несовместимости типов при использовании "/", т. к. результат этой операции - вещественное число, а присвоение шло к целочесленному... а что? в сях не так? Я всегда использовал функции разбиения на целую часть и остаток... Надо будет еще раз почитать... smile smile smile

Нет, в Си надо самому следить. Обычные грабли новичков: 4/5=0 Вси надо в таких случаях хотя бы одно число вещ. писать. например 4.0/5.

Насчёт функций, это верно, ведь для получения целого и остатка у процессора одна комманда. То есть и то и другое одновременно вырешивается. Это как раз операторами / и % нельзя использовать Приходится два раза одну и тоже операцию выполнять.

Цитата(Zero @ 19.3.2005, 18:50)

sergej.z я даже не проверяя код, могу сказать что так написать нельзя.

Ясный красный Просто не удалил var. имелось ввиду, что вообще без локальных переменных обойтись можно.
(А если паскаль инициализирует 0, то и без первой строки )

Код

function sum(number:Integer):Integer  begin   sum:=0;//Если паскаль инициализирует нулём по умолчанию, то эту строку даже можно удалить :)   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number div 10;   end;  end;

Вроде не инициализирует...