Question

!!!помогите!!!очень надо 

Answer 1

var
  b, p: real;
  i: byte;
begin
  p := 1;
  for i := 0 to 47 do
  begin
    b := cos(i) * (sqr(i) / (i + 8));
    if (abs(b) <= 25) then
      p := p * i;
    if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
      write(i, ' '); //Вывод очередного числа
  end;
  writeln(#13, p); //Вывод произведения
end.