Question

составить программу в паскале для поиска простых чисел в числовом промежутке от 1 до 100

Answer 1

program abc;
var
  i, j:integer;
  pr:boolean;
begin
  writeln('Простые числа в диапазоне от 1 до 100: ');
  for i := 2 to 100 do
  begin
    pr := true;
    for j := 2 to i div 2 do
      if i mod j = 0 then
      begin
        pr := false;
        break;
      end;
    if pr then
      write(i, ' ');
  end;
  writeln;
end.

Answer 2

Программа на языке Pascal для поиска простых чисел в числовом промежутке от 1 до 100

program PrimeNumbers;

var
  i, j: Integer;
  isPrime: Boolean;

begin
  for i := 2 to 100 do
  begin
    isPrime := True;
    for j := 2 to i - 1 do
    begin
      if i mod j = 0 then
      begin
        isPrime := False;
        Break;
      end;
    end;
    if isPrime then
      writeln(i);
  end;
end.

Объяснение программы: - Программа использует два цикла `for` для проверки каждого числа в заданном промежутке от 2 до 100. - Внешний цикл `for` перебирает числа от 2 до 100. - Внутренний цикл `for` проверяет, делится ли текущее число на любое число от 2 до `i - 1` без остатка. - Если текущее число делится на какое-либо число без остатка, оно не является простым числом, и флаг `isPrime` устанавливается в `False`. - Если после проверки всех чисел от 2 до `i - 1` флаг `isPrime` остается `True`, то текущее число является простым числом и выводится на экран.

Пример вывода программы: ``` 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 ```

Эта программа на языке Pascal выводит все простые числа в заданном числовом промежутке от 1 до 100.