Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.