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

Question

Информатика

Генюха

14 марта, 10:51

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

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