Question

!!!!!!!!!!!!!!!!!! Помогите написать программу на TP!!!!!!!!!!!!Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не делятся ни на какие числа, кроме 2, 3, 5.

Answer 1

Cvjnhbnt dj dkj;tybb/////////////////

Answer 2

Для решения данной задачи на языке Turbo Pascal (TP) можно использовать рекурсивную функцию. Вот пример программы:

program FirstNNumbers;
var
  count, number: integer;

function IsPrime(n: integer): boolean;
var
  i: integer;
begin
  if n < 2 then
    IsPrime := false
  else
  begin
    IsPrime := true;
    for i := 2 to trunc(sqrt(n)) do
    begin
      if n mod i = 0 then
      begin
        IsPrime := false;
        break;
      end;
    end;
  end;
end;

procedure GenerateNumbers(n: integer);
begin
  if n > 0 then
  begin
    GenerateNumbers(n - 1);
    repeat
      number := number + 1;
    until IsPrime(number);
    writeln(number);
  end;
end;

begin
  writeln('Enter the value of N:');
  readln(count);
  number := 1;
  GenerateNumbers(count);
end.

В этой программе мы используем две функции: `IsPrime` для проверки, является ли число простым, и `GenerateNumbers` для генерации первых N простых чисел. Мы начинаем с числа 1 и последовательно увеличиваем его, пока не найдем простое число. Затем мы выводим это число и продолжаем генерацию оставшихся чисел.

Примечание: В данной программе используется функция `sqrt`, которая возвращает квадратный корень числа. Эта функция может быть не доступна в стандартной библиотеке TP. Если вы получаете ошибку компиляции, связанную с функцией `sqrt`, вам может потребоваться использовать другой способ проверки простоты числа.

Надеюсь, это поможет вам написать программу на языке TP для решения данной задачи! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.