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

Question

Информатика

Санюша

6 декабря, 09:53

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

+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.