Question

Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. Используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. Pascal ABC

Answer 1

Function IsPrime(n:longint):boolean;
var
  found:boolean;
  p:longint;
begin
  if n<4 then IsPrime:=True
  else begin
    found:=(n mod 2=0);
    p:=3;
    while (not found) and (sqr(p)<=n) do
      begin found:=(n mod p=0); p+=2 end;
    IsPrime:=not found
    end
end;

var
  a,b,i:longint;
begin
  Write('Введите начало и конец интервала: ');
  Readln(a,b);
  for i:=a to b do
    if IsPrime(i) then Write(i,' ');
  Writeln
end.

Answer 2

Для реализации данной подпрограммы на языке Pascal ABC, можно воспользоваться функцией, которая будет проверять, является ли число простым. Затем, используя эту функцию, мы можем вывести все простые числа из заданного пользователем промежутка целых чисел.

Вот пример кода на Pascal ABC:

pascalCopy code
program PrimeNumbers;

function IsPrime(n: integer): boolean;
var
  i: integer;
begin
  if n <= 1 then
  begin
    IsPrime := false;
    Exit;
  end;

  for i := 2 to Trunc(Sqrt(n)) do
  begin
    if n mod i = 0 then
    begin
      IsPrime := false;
      Exit;
    end;
  end;

  IsPrime := true;
end;

procedure PrintPrimesInRange(startNum, endNum: integer);
var
  i: integer;
begin
  writeln('Prime numbers in the range ', startNum, ' to ', endNum, ':');
  for i := startNum to endNum do
  begin
    if IsPrime(i) then
      write(i, ' ');
  end;
  writeln;
end;

var
  startNum, endNum: integer;
begin
  writeln('Enter the starting number:');
  readln(startNum);

  writeln('Enter the ending number:');
  readln(endNum);

  PrintPrimesInRange(startNum, endNum);

  readln;
end.

Объяснение кода:

1. Функция IsPrime принимает целое число n в качестве аргумента и возвращает значение типа boolean (True/False) в зависимости от того, является ли число n простым или нет.
2. Процедура PrintPrimesInRange принимает два аргумента startNum и endNum, представляющих начальное и конечное значения промежутка соответственно. Она выводит все простые числа из заданного промежутка на экран.

Пользователь должен ввести начальное и конечное значения промежутка, а программа выведет на экран все простые числа, находящиеся в этом диапазоне.