Создать программу в ABC Pascal(с помощью строк сделать): Ввести строку состоящюю из...

Question

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

Comments

Произведение ЦИФР, а не ЧИСЕЛ? То есть если там встретились числа 11 и 121 то их произведение равно 2?

---

Нет произведение чисел(например числа 17 93864930 и их произведение)

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.

Comments

слушайте ребят а можете без delete делать через writeln просто не проходил ещё и без dec тоже не знаяю

---

Писать Readln в конце нужно только если у тебя ПаскальABCNet

---

Убрал delete и dec

---

в программе?

---

Ну, а где ещё?

---

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

---

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

---

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

---

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

---

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