Задание:
Написать срочно программу) ПАСКАЛЬСРОЧНО!) Ввести число n. Вычислить произведение цифр числа, больших 5?
Решение:
varn,n1, pr: longint; beginread (n); pr: =1; repeatn1: =n mod 10; if n1>5 then sum: =pr*n1; n: =n div 10; until n=0; writeln (pr); end.
Знаете другой ответ?