Срочно! Программа в паскале, через CHAR (Не STRING) ! Вводится строка символов, найти...

Question

Срочно! Программа в паскале, через CHAR (Не STRING) !
Вводится строка символов, найти сумму и количество введенных цифр.

Answer 1

Program fff;
var  c: Char;  n, u, sum: Integer;  begin  write('Кол-во цифр для ввода: ');  readln(n);    for u := 1 to n do begin    readln(c);      sum := sum + Ord(c)-48;  end;    writeln('Кол-во введёных цифр = ', n);  writeln('Сумма введёных цифр = ', sum);end.