С клавиатуры вводится целое число N, найти произведение всех цифр этого числа, а также количество цифр больше 6

Question

Информатика

Нов

10 декабря, 13:40

С клавиатуры вводится целое число N, найти произведение всех цифр этого числа, а также количество цифр больше 6

+2

Ответы (1)

Знаете ответ на вопрос?

Виталий · Answer 1

Uses crt;

var n, a, k, s:integer;

begin

readln (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.