Создать программу в ABC Pascal(с помощью строк сделать):
Ввести строку состоящюю из различных символов и определить:
1) произведение цифр входяящих в эту строку(произведение может быть большим)ж
2) сумму цифр входящих в эту строку, если эти велечины есть

что такое ord(ord(s[i])-ord)?

ord - функция, возвращает номер значения порядкового типа.

а заменить ее можно?

без неё не работает

а по другому можно ? например без этой формулы как нибудь проще можно даже подлиннее

Program str; Uses crt;Var   s:string;  i,p,sum:integer;Begin              P:=1;              Sum:=0;              Readln(s);              For i:=1 to length(s) do                    Begin                If s[i] in ['0'..'9'] then                                                              Begin                                                                           p:=p*(ord(s[i])-ord('0'));                                                                                         sum:=sum+(ord(s[i])-ord('0'));                                                             End;                    End;     Writeln('Сумма = ',sum,' ','Произведение = ',p);End.