Дано натуральное число. Определить произведение его цифр больших 7
Дано натуральное число. Определить произведение его цифр больших 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.
Не нашли ответ?
Похожие вопросы