С клавиатуры вводится строка.

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

Pascal ABC

Var

Stroka:string;

S:real;

i, k:integer;

Begin

Write ('Введите строку: ') ; ReadLn (Stroka) ;

k:=0;

S:=0;

For i: = 1 to Length (Stroka) do

Begin

Case Stroka[i] of

'1':S:=S+1;

'2':S:=S+2;

'3':S:=S+3;

'4':S:=S+4;

'5':S:=S+5;

'6':S:=S+6;

'7':S:=S+7;

'8':S:=S+8;

'9':S:=S+9;

End;

Case Stroka[i] of

'0' ... '9':k:=k+1;

End;

End;

WriteLn ('Сумма цифр: ', S) ;

WriteLn ('Количество цифр: ', k) ;

WriteLn ('Среднее арифметическое цифр: ', S/k) ;

End.