ответ:var p, n: integer; begin readln(n); p := 1; while n <> 0 do begin if (n mod 10)<>0 then p := p * (n mod 10); n := n div 10; end; writeln(p); end.Пример работо
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
