• СРОЧНО!

    С клавиатуры вводится строка.
    Подсчитать и вывести среднее арифметическое цифр в строке.



    С клавиатуры вводится строка.
    Подсчитать и вывести сумму чисел в строке.



    С клавиатуры вводится строка.
    Подсчитать и вывести произведение четных чисел в строке, если таких чисел нет, то вывести 0.

Ответы 1

  • 2 procedure vvod(var st: string);begin  Writeln('Введите строку');  Readln(st);end;function SC(st: string): integer;var  l, k, i, x, code: integer;begin  k := 0;  for i := 1 to length(st) do  begin    val(copy(st, i, 1), x, code);    if code = 0 then begin      k := k + x;      l := l + 1    end;  end;  SC := k div l;end;var  st1: string;  u: real;begin  vvod(st1);  //Ввод  u := SC(st1);    //Находим среднее арифметическое цифр в строке  Writeln(u); //Выводend.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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