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

Question

Информатика

Марюня

11 августа, 07:27

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

+1

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