помогите решить задачку по информатике. нам дано число, необходимо найти сумму

Помогите решить задачку по информатике. нам дано число, необходимо отыскать сумму цифр. решить с подмогою цикла ,,пока,,

Задать свой вопрос
Аринка Кияницкая
что за цикл?
Лидия Глазина
а цикл обязательно
Димка Фотул
да
1 ответ

алг  Сумма  цифр

нач

вывод  sumDigits(12345)

кон

алг цел   sumDigits(цел  n0)

нач

цел  sum=0,   n

n:=n0

нц пока  nlt;gt;0

sum:=sum+mod(n,10)

n:=div(n,10)

кц

знач:=sum

кон



На паскале: 


var a,x:integer;
i,s:integer;
begin 
writeln('Введите целое число: ');
readln( a );
x:=a;  s:=0;
while ( xlt;gt;0 ) do   begin
    s := s + (x mod 10);    x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.
Геннадий Жолдыбин
спасибо огромное)))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт