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

0 голосов
57 просмотров

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


Информатика Начинающий (142 баллов)
Дан 1 ответ
0 голосов
Начинающий (254 баллов)

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.

...