• дана строка. среди символов встречаются цифры. написать программу, вычисляющую сумму всех цифр

Ответы 3

  • спасибо огромное)
    • Автор:

      rhianna
    • 6 лет назад
    • 0
  • Достаточно кнопочки и звездочек, выражающих размер "спасибо"))
    • Автор:

      sofia1kgl
    • 6 лет назад
    • 0
  • var  digits: set of '0'..'9';  s: string;  i, p, d, err: integer;begin  digits := ['0'..'9'];  Write('Введите строку: '); Readln(s);  p := 0;  for i := 1 to Length(s) do    if (s[i] in digits) then    begin Val(s[i], d, err); p := p + d end;  Writeln('Сумма цифр равна ', p)end.Тестовое решение:Введите строку: Сегодня 17 декабря 2014г. Находим сумму 7 цифр их этой строки.Сумма цифр равна 22
    • Автор:

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

Войти через Google

или

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

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

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