Question

Вывести все простые числа от 0 до 500 на языке программирования Паскаль. Заранее спасибо

Answer 1

Держи. Б-же, сколько ещё вариаций этой программы я сделаю?

Answer 2

Solution in Pascal

To display all prime numbers from 0 to 500 in the Pascal programming language, you can use the following code:

program PrimeNumbers;

var
  i, j: Integer;
  isPrime: Boolean;

begin
  for i := 2 to 500 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.

This code uses a nested loop to check if each number from 2 to 500 is prime. The outer loop iterates over the numbers, and the inner loop checks if the number is divisible by any number from 2 to itself minus 1. If a divisor is found, the `isPrime` flag is set to `False`, and the inner loop is exited using the `Break` statement. If no divisor is found, the number is considered prime and is printed to the console using the `WriteLn` statement.

Please note that this code snippet assumes you are using a Pascal compiler or IDE that supports the `WriteLn` statement for console output.