Написать срочно программу) ПАСКАЛЬСРОЧНО!

Question

Написать срочно программу) ПАСКАЛЬСРОЧНО!) Ввести число n. Вычислить произведение цифр числа, больших 5?

Answer 1

87

valery2013

09 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить