• Написать программу, считающую сумму цифр целого числа. программа должна быть написана в TP(Turbo Pascal)

Ответы 1

  • program z1;var S,n:integer;beginwriteln('Введите число');readln(n);while n>0 do begin S:=S+n mod 10; n:=n div 10; end;writeln('S=',S);end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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