Дано натуральное число. Определить произведение его цифр больших 7

Question

Информатика

Эдя

17 октября, 22:16

Дано натуральное число. Определить произведение его цифр больших 7

+2

Ответы (1)

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

Зосима · Answer 1

Var a, b, i, bug:integer;

s:string;

begin;

readln (a) ;

str (a, s) ;

b:=1;

for i:=1 to length (s) do

begin;

val (s[i], a, bug) ;

if a>7 then b:=b*a;

end;

writeln (b) ;

end.