• Помогите, пожалуйста, с паскалем!!!!!!!!!!!!!!!!!!!!!!
    Входные данные
    Вводится натуральное число x.

    Выходные данные
    Выведите сумму цифр числа x.

    Примеры
    входные данные
    123
    выходные данные
    6
    входные данные
    102
    выходные данные
    3

Ответы 1

  • varx,s:integer;beginwrite('x=');readln(x);    while x>0 do    begin        s:=s+(x mod 10);        x:= x div 10;    end;    writeln('s=',s);end.
    • Автор:

      chynaw6je
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years