Question

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

Answer 1

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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