Найти произведение всех цифр в строке - Pascal ABC

Формулировка задачи:

Дана строка. Найти произведение всех цифр в данном предложении. Спасибо за внимание!

Код к задаче: «Найти произведение всех цифр в строке - Pascal ABC»

textual
p:=1;
k:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
 begin
  p:=p*(ord(s[i])-ord('0'));
  k:=1;
 end;
if k=0 then p:=0;
write(p);

15   голосов, оценка 3.533 из 5


СОХРАНИТЬ ССЫЛКУ