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

дизззи дизззи    2   09.07.2019 07:30    0

Ответы
Mihailkim2018 Mihailkim2018  31.07.2020 09:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика