Умоляю помогите мне прошу авас пожалуйста Нужно написать блок схему и программу паскаль к задаче. есть трехзначные числа. необходимо найти количество чисел, Произведение цифр которых меньше восьми. сделать как вложенный цикл Умоляю
Ответы
Ответ дал:
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/e07/e079ebd2d41a9142af498c8486457d6b.png)
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
7 лет назад
7 лет назад