Задание:
Дано натуральное число n. Определить произведение его цифр
Решение:
Uses crt; var n,pr: integer; beginreadln (n); pr: =1; repeatpr: =pr*(n mod 10); n: =n div 10; until n=0; writeln (pr); end.
Знаете другой ответ?
Дано натуральное число n. Определить произведение его цифр
Uses crt; var n,pr: integer; beginreadln (n); pr: =1; repeatpr: =pr*(n mod 10); n: =n div 10; until n=0; writeln (pr); end.
Знаете другой ответ?