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

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

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


textual

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

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);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы