Question

Напишите программу, которая получает с клавиатуры натуральное число и определяет, простое оно или нет. Для этого нужно делить число на все натуральные числа, начиная с 2, пока не получится деление без остатка. Паскаль

Answer 1

Var num, i:integer;
begin
readln(num);
for i:=2 to num do
   if num mod i = 0 then break;
if i = num then writeln('число простое')
else writeln('число составное');
end.

Answer 2

Для написания программы на языке Паскаль, которая определит, является ли введенное число простым, можно использовать следующий код:

pascalCopy code
program PrimeNumberCheck;

var
  number, i: Integer;
  isPrime: Boolean;

begin
  writeln('Введите натуральное число:');
  readln(number);

  if number < 2 then
  begin
    writeln('Число не является простым.');
    Exit;
  end;

  isPrime := True;

  for i := 2 to number - 1 do
  begin
    if number mod i = 0 then
    begin
      isPrime := False;
      Break;
    end;
  end;

  if isPrime then
    writeln('Число является простым.')
  else
    writeln('Число не является простым.');
end.

Программа запрашивает у пользователя натуральное число, затем проверяет, является ли оно меньше 2. Если число меньше 2, то выводится сообщение о том, что число не является простым. В противном случае, программа проверяет число на простоту, деля его на все натуральные числа, начиная с 2, и определяет, есть ли делители, кроме 1 и самого числа. Если такие делители найдены, то число не является простым. В противном случае, число считается простым.