Question

С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b. Pascal ABCфункцией

Answer 1

Procedure Prost(A:integer);
Var
C,D:integer;
Begin
D:=0;
For C:= 2 to A do
        if A mod C = 0 then D:=D+1;
if D=1 then Write(A,' ')
End;

Var A,B:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For B:= A to B do
    Prost(B);
End.

Answer 2

Вот пример решения задачи на поиск простых чисел в диапазоне от a до b на языке Pascal ABC:

pascalCopy code
program PrimeNumbers;

function IsPrime(n: integer): boolean;
var
  i: integer;
begin
  if n < 2 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;

var
  a, b, i: integer;
begin
  Write('Введите значение a: ');
  Readln(a);
  Write('Введите значение b: ');
  Readln(b);

  WriteLn('Простые числа в диапазоне от ', a, ' до ', b, ':');

  for i := a to b do
  begin
    if IsPrime(i) then
      WriteLn(i);
  end;
end.

В этом примере мы определяем функцию IsPrime, которая проверяет, является ли число простым. Затем мы запрашиваем значения a и b с клавиатуры и выводим простые числа в диапазоне от a до b с помощью цикла for и условного оператора if.