Ответы
Ответ дал:
0
Ответ:
var
pr, i, temp :integer;
begin
pr := 1;
for i := 100 to 999 do begin
temp := i;
while ( temp <> 0) do begin
pr := pr * (temp mod 10);
temp := temp div 10;
end;
if(pr <> 0) then
if(i mod pr = 0) then
write(' ',i,' ');
pr := 1;
end;
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад