• составить программу на паскале
     Дано натуральное число,найти сумму цифр этого числа!

Ответы 1

  • Program Program1;vari,sum,n,code:integer;s:string;beginwrite('Введите натуральноее число: ');readln(s);

    sum:=0;for i := 1 to Length(s) dobeginVal(s[i], n, code);sum:=sum + n;end;writeln('Сумма цифр: ', sum)end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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