Задается положительное целое число N. Нужно вывести произведение его цифр.

Ответы:

Amina Vlasova

07-04-2015 06:46

var s,n:integer;begin Readln(n); s:=1; repeat s:=s*(n mod 10); n:=n div 10; until n=0; Writeln(s); Readln;end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ДАЛИЯ ЯКОВЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Задается положительное целое число N. Нужно вывести произведение его цифр.» от пользователя ДАЛИЯ ЯКОВЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!