Question

СРОЧНО!

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



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



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

Answer 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.