Question

Напишите программу на языке Паскаль. Определить, является ли число, введённое с клавиатуры простым.

Answer 1

var n, i: integer;

begin

   write('Введите число: ');

   readln(n);

   i:=2;

   while n mod i <> 0 do

       i += 1;

   if i = n then

       writeln('Простое')

   else

       writeln('Не простое');

end.

Answer 2

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

Алгоритм определения простого числа:

1. Вводим число с клавиатуры.
2. Проверяем, является ли число 1. Если да, то оно не является простым числом.
3. Проверяем, является ли число 2 или 3. Если да, то оно является простым числом.
4. Если число четное (кроме 2), то оно не является простым числом.
5. Проверяем делители от 3 до квадратного корня из введенного числа. Если находим делитель, то число не является простым.
6. Если ни один делитель не найден, то число является простым.

Пример псевдокода:

arduinoCopy code
Процедура IsPrime(n: Integer);
var
    i: Integer;
    isPrime: Boolean;
begin
    isPrime := False;
    
    // Проверяем числа 1 и 2
    if (n = 2) or (n = 3) then
        isPrime := True
    else if (n = 1) or (n mod 2 = 0) then
        isPrime := False
    else
    begin
        // Проверяем делители от 3 до квадратного корня из n
        i := 3;
        while (i * i <= n) and (not isPrime) do
        begin
            if n mod i = 0 then
                isPrime := True;
            Inc(i, 2); // Шаг 2, чтобы пропустить четные числа
        end;
    end;
    
    // Выводим результат
    if isPrime then
        WriteLn(n, ' является простым числом')
    else
        WriteLn(n, ' не является простым числом');
end;

Var
    number: Integer;
begin
    WriteLn('Введите число:');
    ReadLn(number);
    IsPrime(number);
end.

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