Задание:
С клавиатуры вводится целое число n. Найти произведение всех цифр этого числа а так же колличество большихшести
Решение:
Uses crt; var n,a,k,s: integer; beginreadln (n); a: =n; repeat; a: =n mod 10; s: =s+a; n: =n div 10; if a>6 then inc (k); until a=0; writeln (s); writeln (k); end.
Знаете другой ответ?