Есть трехзначное число необходимо найти количество чисел произведение цифр которых меньше 8. Блок схема и программа, плиз помогите
serd2011:
Как связаны данное трехзначное число и числа произведение цифр которых меньше 8?
Ответы
Ответ дал:
0
var
a,b,i,count:integer;
begin
i:=100;
repeat
b:=i;
a:=1;
while b>0 do
begin
a:=a * (b mod 10);
b:=b div 10;
end;
if a < 8 then
begin
inc(count);
write(i:4);
end;
inc(i);
until i>=999;
writeln;
writeln('Count: ',count);
end.
Приложения:
![](https://st.uroker.com/files/879/8798db05f11fac1edc08165a9f449afa.png)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад