СРОЧНО!
С клавиатуры вводится строка.
Подсчитать и вывести среднее арифметическое цифр в строке.
С клавиатуры вводится строка.
Подсчитать и вывести сумму чисел в строке.
С клавиатуры вводится строка.
Подсчитать и вывести произведение четных чисел в строке, если таких чисел нет, то вывести 0.
С клавиатуры вводится строка.
Подсчитать и вывести среднее арифметическое цифр в строке.
С клавиатуры вводится строка.
Подсчитать и вывести сумму чисел в строке.
С клавиатуры вводится строка.
Подсчитать и вывести произведение четных чисел в строке, если таких чисел нет, то вывести 0.
More Questions From This User See All
Answers & Comments
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.