• Найти сумму цифр любого числа с помощью String

Ответы 1

  • Program Pr1;uses crt;var stroka,tmp:string; i,a,b,c:integer;Beginclrscr;writeln('Введите числа для сложения в форме a+b');readln(stroka);i:=1;while stroka[i] in ['0'..'9'] do i:=i+1;tmp:=copy(stroka,1,i-1);delete(stroka,1,i);val(tmp,a,c);val(stroka,b,c);c:=0;c:=a+b;writeln(c);end.

     

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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