Question

Помогите пожалуйста! нужно написать программу, которая определяет, является ли целое число простым. На уровне 9 класса, попроще что бы было. В паскале. Заранее спасибо!

Answer 1

Program p1;
uses crt;
var a,b:integer;
begin
read(a);


   If (a mod 2 = 0) and (a <> 2) or (a mod 3 =0)and (a <> 3) or (a mod 5 = 0) and (a <> 5)or (a mod 7 = 0)  and (a <> 7) then
   write(a,' непростое число')
     else
       write(a ,' простое число');
end.

Answer 2

Конечно, я помогу вам написать программу на языке Паскаль, которая определит, является ли целое число простым. Для этого мы будем использовать простой алгоритм перебора делителей.

Программа будет запрашивать у пользователя ввод целого числа и выводить сообщение о том, является ли оно простым.

Вот код программы на Паскале:

pascalCopy code
program CheckPrimeNumber;

var
  num, i: integer;
  isPrime: boolean;

begin
  writeln('Введите целое число:');
  readln(num);

  // Предположим, что число простое
  isPrime := true;

  // Проверяем делители от 2 до квадратного корня из числа
  // Если число имеет делитель в этом диапазоне, то оно не является простым
  for i := 2 to trunc(sqrt(num)) do
  begin
    if num mod i = 0 then
    begin
      isPrime := false;
      break;
    end;
  end;

  if isPrime and (num > 1) then
    writeln(num, ' - простое число.')
  else
    writeln(num, ' - не является простым числом.');

  readln;
end.

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