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

247

431

Посмотреть ответы 2

Ответы на вопрос:

Kamila7811

Информатика

4,4(71 оценок)

2procedure 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.