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

Question

Информатика

Агапит

5 августа, 22:01

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

+3

Ответы (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.