Var k, s: integer; begin readln(k); s: =1; while k > 0 do begin s : = s * (k mod 10); k : = k div 10; end; writeln(s); end.
Спасибо
Ответ дал: Гость
чернила были красные и черные. весь текст писался чернилами черного цвета, а начало каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.
Популярные вопросы